【書式】
FileSystemObject.MoveFile source, destination
引数sourceに指定したファイルを、引数destinationに移動します。
引数sourceの最終要素にはワイルドカードを使用できます。詳しくはCopyFileメソッドをご覧ください。
引数destinationにすでに同名ファイルが存在する場合はエラーになります。
引数sourceに指定したファイルが読み取り専用でも移動されます。
Sub test23()
Dim FSO As Object
Set FSO = CreateObject("Scripting.FileSystemObject")
''C:\Tmp\フォルダ内の*.xlsxをC:\Work\フォルダに移動します
FSO.MoveFile "C:\Tmp\*.xlsx", "C:\Work\"
Set FSO = Nothing
End Sub