FileSystemObjectのMoveFolderメソッドについてです。
Menu
MoveFolderメソッド
概要
フォルダーを移動できます。
構文
FileSystemObject.MoveFolder source,destination
MoveFolderメソッドの引数
| 引 数 | 必須 / 省略可 | 詳 細 |
移動元フォルダー | 必須 | 移動元のフォルダーパスを指定。 |
移動先フォルダー (destination) | 必須 | 移動先のフォルダーパスを指定。 |
VBAサンプル
サンプル1（1つのフォルダーの移動）
1 2 3 4 5 6 7 8 | Sub test1() Dim fso As Object Set fso = CreateObject("Scripting.FileSystemObject") 'sample1フォルダーをFolder2フォルダーに移動 fso.MoveFolder "D:\FSO\Folder1\sample1", "D:\FSO\Folder2\" End Sub |
サンプル2（複数のフォルダーの移動）
ワイルドカードを使用してtestという文字が含まれているフォルダーのみ移動させる場合。
1 2 3 4 5 6 7 8 | Sub test2() Dim fso As Object Set fso = CreateObject("Scripting.FileSystemObject") 'ワイルドカードでtestが含まれるフォルダーのみ移動 fso.MoveFolder "D:\FSO\Folder1\*test*", "D:\FSO\Folder2\" End Sub |
【実行前】
【実行後】
testという文字が含まれたフォルダーのみ移動されたのが確認できます。
