エラー一覧とエラー処理のサンプルコード

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
  
  'エラー番号に応じた処理を記述する
  Select Case Err.Number
    Case 53
      'コピー元のファイルが存在しない場合の処理をここに記述
      WScript.Echo "コピー元のファイルがありませんよ！"
    Case 58
      'コピー先にファイルが存在する場合の処理をここに記述
      WScript.Echo "コピー先にファイルが存在するので先に移動してください。"
    Case Else
      WScript.Echo "予期しないエラーが発生しました。" & vbCrLf & _
                   "エラー番号：" & Err.Number & vbCrLf & _
                   "エラー詳細：" & Err.Description
  End Select
  
  'エラー情報をクリアする
  Err.Clear
End If
 
'「On Error Resume Next」を解除
On Error Goto 0
 
Set objFileSys = Nothing