【VBA】フォルダーを作成(Add) | デイレコ DairyRecord-blog

FolderコレクションのAddメソッドについてです。

Addメソッド

新規フォルダーを作成して、Foldersコレクションに追加します。

FoldersCollction.Add folderName

引　数	必須 / 省略可	詳　細
フォルダー名 (folderName)	必須	追加するフォルダー名を指定。 ※すでに同名のフォルダーがある場合はエラー。

Sub test()

'FileSystemObjectをセット

Dim fso As Object

Set fso = CreateObject("Scripting.FileSystemObject")

'FolderオブジェクトをFileSystemObjectのGetFolderメソッドでセット

Dim fol As Folder

Set fol = fso.GetFolder("D:\sample")

'Foldersコレクションをセット

Dim fc As Folders

Set fc = fol.SubFolders '←Foldersコレクションを返す

'FoldersコレクションのAddメソッドでdddフォルダーを追加

fc.Add "ddd"

End Sub

【結果】

dddという名前のフォルダーが追加されます。

ウオッチウィンドウで確認するとFordersコレクションに追加されているのが確認できます。

簡略化して書くと下記のようにコードになります。

Sub test2()

'FileSystemObjectをセット

Dim fso As Object

Set fso = CreateObject("Scripting.FileSystemObject")

'dddというフォルダーを作成

fso.GetFolder("D:\sample").SubFolders.Add ("ddd")

End Sub