VBA ファイルを別フォルダーへコピー

ファイルをコピーする

Sub test()

　　　’ファイルをコピーする

　　　FileCopy "D:\test\B\A_210720-2.docx", "D:\test\B\A_210720-2B.docx"

End Sub

実行結果

　コードのなか赤文字のところは、コピーもとのフルファイル名です。これに対して、青字のところは、コピー先のフルファイル名です。同じフォルダーにファイルをコピーする際、ファイル名を変更することが必要です。しない場合、もちろんエラーが出ます。それだけは、気をつけてください。

別フォルダーへファイルをコピーする

Sub test2()

　　　’　別フォルダーへファイルをコピーする

    Dim myPath(2) As String
    Dim FileName As String

    ’　ファイル元保管場所
    myPath(1) = "D:\test\A\"

     ’　ファイル貼り付け先
    myPath(2) = "D:\test\B\"

    FileName = "A_210720-2.docx"

     FileCopy myPath(1) & FileName, myPath(2) & FileName
    If Dir(myPath(2) & FileName) <> "" Then
        MsgBox "コピーされました"
    End If