VBSでファイルコピー

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