VBA：フォルダの作成「MkDirステートメント」
◆フォルダの作成
「MkDirステートメント」の構文としては
|
1 |
MkDir path |
となります。
以下がサンプルコードとなります。標準で使えるものなのでコードもシンプルです。
|
1 2 3 |
Sub フォルダを作成する() MkDir "C:\Users\VBA" End Sub |
※フォルダがすでに存在する場合はエラーになるので、エラー処理を入れてください。
◆サンプルコード
以下では、対象のパスに同じ名前のフォルダがあるかないかを「Dir」関数で確認し、なければ「MkDirステートメント」を使ってフォルダを作成しています。
|
1 2 3 4 5 6 7 8 9 10 11 |
Sub フォルダの作成() Dim xTmpPath As String xTmpPath = "C:\Users\VBA" MsgBox Dir(xTmpPath, vbDirectory) 'フォルダの有無の確認。なければフォルダを作成する' If Dir(xTmpPath, vbDirectory) = "" Then MkDir xTmpPath End If End Sub |
