VbScriptのエラーオブジェクトがエラー時にクリアされるステートメント

Question

VbScriptを持つ初心者の種類で、エラー処理を実装しようとしています。私の方法は、エラーオブジェクトをHandleErrサブに渡すことですが、エラーは明らかにサブオンと "On Error Resume Next"ステートメントでクリアされます。 Windows 7を使用しています。

On Error Resume Next 
Dim x 
x = 1/0 
msgbox "Original Error: " & err.Number & " - " & err.Description 
if err.number <> 0 then HandleErr err 

Sub HandleErr(objErr) 
    on error resume next '### Without this On Error statement, the script runs fine. 
    msgbox "Error in HandleErr: " & objErr.Number & " - " & objErr.Description '### objErr.Number becomes zero. 
    WScript.Quit objErr.Number 
End Sub 

私はこれに簡単な答えがあると思います。どんな助けでも大歓迎です。

Answer 1

HandleErr()に達すると、On Error Resume Nextでスキップエラーを停止します。またを使用してErrオブジェクトをリセットしてください。 Errは後藤エラー時にグローバル組み込みオブジェクトあなたはまだそれを渡さずに値を確認できるようにします。

On Error Resume Next 
Dim x 
x = 1/0 
MsgBox "Original Error: " & Err.Number & " - " & Err.Description 
Call HandleErr() 
'Stop skipping lines when errors occur. 
On Error Goto 0 

Sub HandleErr() 
    'Do we need to trap an error? 
    If Err.Number <> 0 Then 
     MsgBox "Error in HandleErr: " & Err.Number & " - " & Err.Description '### Err.Number becomes zero. 
     'Clear current error now you have trapped it. 
     Err.Clear 
     WScript.Quit Err.Number 
    End If 
End Sub