【VBA】ファイルをコピーする

ファイル名を変更せずにコピーする

「FileSystemObject」の「CopyFile」の
　・第1引数に「コピーするファイルのパス」
　・第2引数に「コピー先のフォルダのパス」
を指定することで、ファイル名を変更せずにコピーすることが出来ます。

Option Explicit

Sub sample()
    
    Dim fso As Object
    Dim fileFullPath As String
    Dim folderPath As String
    
    'コピーするファイルのパスを指定
    fileFullPath = "C:\Users\user\Desktop\aiueo.txt"
    
    'コピー先のフォルダのパスを指定
    folderPath = "C:\Users\user\Desktop\folder_001\"
    
    Set fso = CreateObject("Scripting.FileSystemObject")

    'ファイルを変更せずにコピーする
    Call fso.CopyFile(fileFullPath, folderPath)
    
    '後片付け
    Set fso = Nothing
    
End Sub

ファイル名を変更してコピーする

「FileSystemObject」の「CopyFile」の
　・第1引数に「コピーするファイルのパス」
　・第2引数に「コピー後のファイルのパス」
を指定することで、ファイル名を変更してコピーすることが出来ます。

Option Explicit

Sub sample()
    
    Dim fso As Object
    Dim fileFullPath As String
    Dim copyFileFullPath As String
    
    'コピーするファイルのパスを指定
    fileFullPath = "C:\Users\user\Desktop\aiueo.txt"
    
    'コピー後のファイルのパスを指定
    copyFileFullPath = "C:\Users\user\Desktop\folder_001\copyfile.txt"
    
    Set fso = CreateObject("Scripting.FileSystemObject")

    'ファイル名を変更してコピーする
    Call fso.CopyFile(fileFullPath, copyFileFullPath)
    
    '後片付け
    Set fso = Nothing
    
End Sub

複数のファイルをコピーする

ワイルドカードを使用することで、複数のファイルを1度にコピーすることが出来ます。
詳細は以下の記事を参照してください。

ファイルをコピーする前に実施しておきたいこと

コピー後のファイルが既に存在している場合、コピーは不要で場合もあると思います。

その場合は、コピー後のファイルの存在有無を確認してからコピーしましょう。
詳細は以下の記事を参照してください。

コピー後のファイルが既に存在している場合、削除してからコピーすべき場合もあると思います。

その場合は、コピー後のファイルを削除してからコピーしましょう。
詳細は以下の記事を参照してください。