ファイルをコピーする方法

'ファイルを上書きでコピーする。
Call ファイルシステムオブジェクト.Copy(コピー元, コピー先)
 
'以下も同じ。
Call ファイルシステムオブジェクト.Copy(コピー元, コピー先, True)
 
'※３つ目の引数は次の通り。
'　True：コピー先にファイルがある場合、上書きする。
'　false：コピー先にファイルがある場合、エラーを発生させる。 

Option Explicit
 
Sub test()
    Dim objFileSys
    Dim strFilePathFrom
    Dim strFilePathTo
     
    'ファイルシステムを扱うオブジェクトを作成
    Set objFileSys = CreateObject("Scripting.FileSystemObject")
     
    'コピー元のファイルのパスを指定
    strFilePathFrom = "c:\temp\コピー元.txt"
    strFilePathTo = "c:\temp\コピー先.txt"
     
    'エラー発生時にも処理を続行するよう設定
    On Error Resume Next
     
    'ファイルを上書きコピー
    Call objFileSys.CopyFile(strFilePathFrom, strFilePathTo)
     
    '元ファイルが無いなど、エラーになった場合の処理
    If Err.Number <> 0 Then
      'ここにエラー時の処理を記述
      MsgBox "ファイルコピー時にエラーが発生しました。" & vbNewLine & _
             "エラー番号：" & Err.Number & vbNewLine & _
             "エラー詳細：" & Err.Description
      
      'エラー情報をクリアする。
      Err.Clear
    End If
     
    '「On Error Resume Next」を解除
    On Error GoTo 0
     
    Set objFileSys = Nothing
End Sub 

'コピー先にファイルが存在しない場合のみコピー。ある場合はエラーが発生する。
Call ファイルシステムオブジェクト.Copy(コピー元, コピー先, False)  

Option Explicit
 
Sub test()
    Dim objFileSys
    Dim strFilePathFrom
    Dim strFilePathTo
     
    'ファイルシステムを扱うオブジェクトを作成
    Set objFileSys = CreateObject("Scripting.FileSystemObject")
     
    'コピー元のファイルのパスを指定
    strFilePathFrom = "c:\temp\コピー元.txt"
    strFilePathTo = "c:\temp\コピー先.txt"
     
    'エラー発生時にも処理を続行するよう設定
    On Error Resume Next
     
    'コピー先に同名のファイルが無い場合のみコピー
    Call objFileSys.CopyFile(strFilePathFrom, strFilePathTo, False)
     
    'コピー先に同名のファイルがある場合や元ファイルが無い等
    'エラーになった場合の処理
    If Err.Number <> 0 Then
      'ここにエラー時の処理を記述
      MsgBox "ファイルコピー時にエラーが発生しました。" & vbNewLine & _
             "エラー番号：" & Err.Number & vbNewLine & _
             "エラー詳細：" & Err.Description
      
      'エラー情報をクリアする。
      Err.Clear
    End If
     
    '「On Error Resume Next」を解除
    On Error GoTo 0
     
    Set objFileSys = Nothing
End Sub