FileSystemObjectオブジェクト - MoveFolderメソッド


【書式】

FileSystemObject.MoveFolder source, destination

引数sourceに指定したフォルダを、引数destinationに移動します。

引数sourceの最終要素にはワイルドカードを使用できます。詳しくはCopyFileメソッドをご覧ください。

Sub test24()
    Dim FSO As Object
    Set FSO = CreateObject("Scripting.FileSystemObject")
    ''C:\Tmp\Sub\フォルダをC:\Work\フォルダに移動します
    FSO.MoveFolder "C:\Tmp\Sub", "C:\Work\"
    Set FSO = Nothing
End Sub