VB轉到失敗編譯

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

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()

來源

2015-10-13 steventnorris

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

On Error Resume Next

和

On Error Goto 0

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

來源

2015-10-13 17:26:21 Martha

不幸的。我已經習慣了VB世界，但是我已經被迫進入一個非IDE的土地來製作一個快速腳本，所以使用VBScript或者我曾經想過的更容易。謝謝！ – steventnorris

VB轉到失敗編譯

回答

相關問題