作成 2010.10.27
更新 2010.10.27
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
' コード続行
参照
タグ: VBScript

©2004-2017 UPKEN IPv4