【書式】
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