VbScript錯誤對象通過On Error Statement清除

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.Clear()重置Err對象。

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

Sub HandleErr(objErr) 
    MsgBox "Error in HandleErr: " & objErr.Number & " - " & objErr.Description '### objErr.Number becomes zero. 
    'Clear current error now you have trapped it. 
    Err.Clear 
    WScript.Quit objErr.Number 
End Sub 

個人，雖然我不會通過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