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

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

Option Explicit
 
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
  'ここにエラー時の処理を記述
  WScript.Echo "ファイルコピー時にエラーが発生しました。" & vbCrLf & _
               "エラー番号：" & Err.Number & vbCrLf & _
               "エラー詳細：" & Err.Description
  
  'エラー情報をクリアする。
  Err.Clear
End If
 
'「On Error Resume Next」を解除
On Error Goto 0
 
Set objFileSys = Nothing  

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

Option Explicit
 
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
  'ここにエラー時の処理を記述
  WScript.Echo "ファイルコピー時にエラーが発生しました。" & vbCrLf & _
               "エラー番号：" & Err.Number & vbCrLf & _
               "エラー詳細：" & Err.Description
  
  'エラー情報をクリアする。
  Err.Clear
End If
 
'「On Error Resume Next」を解除
On Error Goto 0
 
Set objFileSys = Nothing