vbScript中如何進行錯誤處理

這篇文章將為大家詳細講解有關vbScript中如何進行錯誤處理，小編覺得挺實用的，因此分享給大家做個參考，希望大家閱讀完這篇文章后可以有所收獲。

vbscript中，錯誤處理使用on error resume next來完成，如果在你的代碼里加入這一句，在這句之后的其他代碼如果出現錯誤，系統將忽略這些錯誤繼續運行后面的代碼，同時，我們可以使用下面的代碼來捕獲錯誤

復制代碼 代碼如下:

If err.number<>0 then
errNum = Err.Number
errDesc = Err.Description
Call G00B02logOut("Error.002"， errNum ，errDesc )
End If
If err.number<>0 then
errNum = Err.Number
errDesc = Err.Description
Call G00B02logOut("Error.002"， errNum ，errDesc )
End If

這樣可以捕獲到錯誤代碼和錯誤的描述信息，并寫入日志文件。然 而，有個問題是，在我們捕獲了這個錯誤之后的代碼，如果再出現錯誤而你沒有捕獲的話，代碼仍然會忽略錯誤繼續運行。忽略錯誤是我們不希望看到的結果，將導致程序調試困難。此時可以使用 On Error GoTo 0 這句來終止前面錯誤處理，即可以和on error resume next 成對出現。這樣就不會影響后面的代碼了。

復制代碼 代碼如下:

on error resume Next
。。。
'DB operate。。
。。。
If err.number<>0 then
errNum = Err.Number
errDesc = Err.Description
Call G00B02logOut("Error.002"， errNum ，errDesc )
End If
On Error Goto 0
on error resume Next
。。。
'DB operate。。
。。。
If err.number<>0 then
errNum = Err.Number
errDesc = Err.Description
Call G00B02logOut("Error.002"， errNum ，errDesc )
End If
On Error Goto 0

有幾個特點需要了解，
1，on error resume Next如果在全局定義，則作用是全局的，你在主程序中使用了這一句，后面如果調用了一個函數，那么函數中如果有錯誤，也將被忽略，你在主程序中函數調用的語句后面也可以捕獲到這個錯誤，這一點可以通過下面簡單的代碼驗證：

復制代碼 代碼如下:

On error resume Next
funcb ‘調用函數
If err.Number <> 0 Then
errNum = Err.Number
errDesc = Err.Description
WScript.Echo errNum & " - " & errDesc
End If
WScript.Echo "main ...."
'On Error Goto 0
Sub funcb
aaaaaaaaaaa '測試用的無效語句
WScript.Echo "funcb ok"
If err.Number <> 0 Then
errNum = Err.Number
errDesc = Err.Description
WScript.Echo errNum & " - " & errDesc
End If
End
On error resume Next
funcb ‘調用函數
If err.Number <> 0 Then
errNum = Err.Number
errDesc = Err.Description
WScript.Echo errNum & " - " & errDesc
End If
WScript.Echo "main ...."
'On Error Goto 0
Sub funcb
aaaaaaaaaaa '測試用的無效語句
WScript.Echo "funcb ok"
If err.Number <> 0 Then
errNum = Err.Number
errDesc = Err.Description
WScript.Echo errNum & " - " & errDesc
End If
End

執行以上代碼的結果：
13 - 型が一致しません。
main ....
可以看出，在函數中，aaaaaaaaaaa是故意制造的一個錯誤，其后的WScript.Echo "funcb ok"以及后面的代碼都沒有執行。但是，主程序中的WScript.Echo "main ...."語句是執行了的。就是說，在函數中如果某個語句出錯，函數中后面的語句都不執行，直接執行調用函數的語句后面的語句。
2，On error resume Next如果在函數內定義，看下面的代碼執行情況

復制代碼 代碼如下:

funcb ‘函數調用
If err.Number <> 0 Then
errNum = Err.Number
errDesc = Err.Description
WScript.Echo errNum & " - " & errDesc
End If
WScript.Echo "main ...."
Sub funcb ‘函數定義
On error resume Next
aaaaaaaaaaaa '無效語句
WScript.Echo "funcb ok"
If err.Number <> 0 Then
errNum = Err.Number
errDesc = Err.Description
WScript.Echo errNum & " - " & errDesc
End If
End Sub
funcb ‘函數調用
If err.Number <> 0 Then
errNum = Err.Number
errDesc = Err.Description
WScript.Echo errNum & " - " & errDesc
End If
WScript.Echo "main ...."
Sub funcb ‘函數定義
On error resume Next
aaaaaaaaaaaa '無效語句
WScript.Echo "funcb ok"
If err.Number <> 0 Then
errNum = Err.Number
errDesc = Err.Description
WScript.Echo errNum & " - " & errDesc
End If
End Sub

執行結果如下：
funcb ok
13 - 型が一致しません。
13 - 型が一致しません。
main ....
可以看到，函數體內的err對象和調用它的主程序中都可以捕獲到這個錯誤，這說明err對象是全局的，應該這么理解，err的作用范圍在一個On error resume Next語句和一個On Error Goto 0之間有效。如果我們在funcb調用語句的后面在加一個無效語句，執行時會彈出錯誤msg框，說明函數體內的On error resume Next不能作用到函數體外。

關于“vbScript中如何進行錯誤處理”這篇文章就分享到這里了，希望以上內容可以對大家有一定的幫助，使各位可以學到更多知識，如果覺得文章不錯，請把它分享出去讓更多的人看到。