［Script］［VBS］エラー処理（Err.Number）

On Error Resume Next
VBScript でエラーが発生しても強制的に処理を行う。
※エラーが起きた処理は実行されない

On Error Goto 0
エラーが発生した時点で処理を中断する。
※プログラムは終了する。

①On Error Resume Next を使った場合の処理でエラー処理をするにはエラー番号を取得する。

On Error Resume Next

Err.Clear

*** エラーが発生 ***
If Err.Number <> 0 Then
    MsgBox エラー発生
End If

②エラーが発生するまで無限ループする。

On Error Resume Next

i = 0
Do While 1

  Err.Clear

  *** ループ処理 ***
  If Err.Number <> 0 Then Exit Do

  i = i + 1
Loop

②はよくやる方法です。

---

Script のページに戻る