
FolderコレクションのAddメソッドについてです。
Addメソッド
概要
新規フォルダーを作成して、Foldersコレクションに追加します。
構文
FoldersCollction.Add folderName
Addメソッドの引数
引 数 | 必須 / 省略可 | 詳 細 |
フォルダー名 | 必須 | 追加するフォルダー名を指定。 |
VBAサンプル
フォルダーを作成してFoldersコレクションに追加
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 | 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コレクションに追加されているのが確認できます。
簡略化して書くと下記のようにコードになります。
1 2 3 4 5 6 7 8 | Sub test2() 'FileSystemObjectをセット Dim fso As Object Set fso = CreateObject("Scripting.FileSystemObject") 'dddというフォルダーを作成 fso.GetFolder("D:\sample").SubFolders.Add ("ddd") End Sub |