フォルダーを移動する

今回はフォルダーの移動についてメモしておきます。

FileSystemObjectを使ったフォルダの移動

フォルダーを移動させるには、MoveFolderメソッドを使います。
ワイルドカード文字を使い、複数のフォルダーを一度に移動させることもできます。

実行プログラム

Sub Sample7_5_1()

    Dim objFSO   As Object

    Set objFSO = CreateObject("Scripting.FileSystemObject")

    objFSO.MoveFolder "C:\移動元\Sample7_5*", "C:\移動先"

End Sub

Sub Sample7_5_1()

Dim objFSO As Object

Set objFSO = CreateObject("Scripting.FileSystemObject")

objFSO.MoveFolder "C:\移動元\Sample7_5*", "C:\移動先"

End Sub

実行前

実行後

“Sample7_5*”と指定することで、以下のフォルダーは移動されました。

Sample7_5
Sample7_5(1)
Sample7_5(2)