[実行時エラーを無視する]

実行時エラーを無視します。

【ソースコード】

[tips0055.vbs]
Option Explicit

Dim lngValue    ' エラー出力用の数値

WScript.Echo "エラーを無視します"
On Error Resume Next
lngValue = 10 / 0

WScript.Echo "エラーの動作を元に戻します"
On Error Goto 0
lngValue = 10 / 0

【実行結果】

C:\> cscript //NoLogo tips0055.vbs
エラーを無視します
エラーの動作を元に戻します
C:\tips0055.vbs(11, 1) Microsoft VBScript 実行時エラー: 0 で除算しました。