VBScript でエラーがあっても続行するようにする

On Error

エラーを無視して続行するようにするには、エラーが起きそうなコードの前に書きます。
デバックが困難になるため、あまり多用しないようにしてください。

On Error Resume Next

エラーを無視せず再度その場で停止するようにするには

On Error Goto 0

エラー処理

以下のサンプルは、レジストリを読み込もうとして失敗するコードです。

Option Explicit
Dim regStr, WshShell, regVal
Set WshShell = CreateObject("WScript.Shell")
regStr = "HKCU\..."

' エラーが出ても無視
On Error Resume Next
' この時点で、Err オブジェクトはリセットされている

regVal = WshShell.RegRead(regStr)

' エラーあったら、Err オブジェクトに値が設定されている。
' Err.Number のデフォルトは 0 で、0 以外の値が入っていればエラーが発生したと判断できる。
If Err.Number <> 0 Then
  WScript.Echo "読み取れません。"
Else
  WScript.Echo regVal
End If

' エラーが出たら止める
On Error Goto 0
' コード続行

参照

On Error ステートメント Err オブジェクト