VB轉到失敗編譯

Question

下面的腳本將失敗，出現錯誤，我很滿意。現在，我正在努力解決我的On Error GoTo <label>語法，它目前失敗，出現以下錯誤。下面

Line: 2 
Char: 16 
Error: Syntax Error 
Code: 800A03EA 
Source: Microsoft VBScript compilation error 

代碼：

Sub ComCheck 
    On Error GoTo ErrorHandler 

    Dim fortis 

    Wscript.Echo("Creating COM object.") 
    Set fortis = CreateObject("TESTCOM.APPLICATION") 

    Wscript.Echo("Write Database name.") 
    Wscript.Echo(fortis.Databases[0].Name) 

    GoTo ScriptEnd 

ErrorHandler: 
    Wscript.Echo("-------ERROR OCCURRED------") 
    Wscript.Echo("#" + Err.Number + "::" + Err.Description) 
    Err.Clear 

ScriptEnd: 
    Wscript.Echo("Script complete.") 

End Sub 

ComCheck() 

Answer 1

這是VB和VBScript之間的差異之一：後者不支持GoTo <label>語法。在VBScript中只有兩種可能性：

On Error Resume Next 

和

On Error Goto 0 

您在使用前給關閉的VBScript自己的錯誤處理（和你自己可能處理錯誤），而後者開啓VBScript的錯誤處理（如果遇到錯誤，則停止所有執行）。