VB GoTo 编译失败

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> 语法。 VB脚本中仅有的两种可能性是：

On Error Resume Next

和

On Error Goto 0

您使用前者关闭 VBScript 自己的错误处理（并且可能自己处理错误），使用后者打开 VBScript 的错误处理（如果遇到错误）。

VB GoTo 编译失败

VB GoTo failing compilation

vbscript

error-handling

goto

onerror