ファイルを移動する

今回はファイル移動についてメモしておきます。

ファイルの移動

実行プログラム

Sub Sample7_4_1()

    Name "C:\移動元\Sample7_4.txt" As "C:\移動先\Sample7_4.txt"

End Sub

Sub Sample7_4_1()

Name "C:\移動元\Sample7_4.txt" As "C:\移動先\Sample7_4.txt"

End Sub

実行前

実行後

FileSystemObjectを使ったファイルの移動

GetFileメソッドで取得したFileオブジェクトを、Moveメソッドで別フォルダに移動します。
次のサンプルコードもSample7_4_1と同じ結果になります。

実行プログラム

Sub Sample7_4_2()

    Dim objFSO   As Object
   
    Set objFSO = CreateObject("Scripting.FileSystemObject")

    objFSO.GetFile("C:\移動元\Sample7_4.txt").Move "C:\移動先\"

End Sub

Sub Sample7_4_2()

Dim objFSO As Object

Set objFSO = CreateObject("Scripting.FileSystemObject")

objFSO.GetFile("C:\移動元\Sample7_4.txt").Move "C:\移動先\"

End Sub

指定ファイルが存在しない場合、エラーが発生します。
ワイルドカード文字は使用できません。