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的错误处理（如果遇到错误则停止所有执行）

VB GoTo编译失败

1 个答案: