ファイルをコピーする

ファイルをコピーするには、以下のようにします。

参照設定に「Microsoft Scripting Runtime」を追加します。

Private Sub Command1_Click()

    Dim f As New FileSystemObject
   
    'ファイルをコピーする
    ' 第3引数をTrueにすることで、コピー先のファイルが既に存在する場合、上書きする。
    f.CopyFile "c:\test\a.csv", "c:\test\a2.csv", True
    
    Set f = Nothing

End Sub