vbscript 中的错误处理？

Question

我们有一些旧的遗留 vbscript 代码需要某种错误处理。以前从未使用过 vbscript，我完全不知所措。代码如下：

set objBL = CreateObject("SQLXMLBulkLoad.SQLXMLBulkload.4.0")
objBL.ConnectionString = "connectionstring"
objBL.KeepIdentity = false
objBL.ErrorLogFile = "E:\code\Acquity\WebOrderImport\logs\error.log"

Set fso = CreateObject("Scripting.FileSystemObject")
Set parentfolder = fso.GetFolder("E:\textdata\Acquity\AcquityWebOrders")  
Set logfile = fso.OpenTextFile("E:\code\Acquity\WebOrderImport\logs\import.log",8)
count = 0
    For each folder in parentfolder.subfolders
        logfile.writeline count & " files"
        logfile.writeline "Processing " & folder.name & " ***********************************" & now()
        count = 1
        For Each file in folder.files
            If left(file.name,6) = "Order_" then
                If left(file.name,13) = previous then
                    logfile.writeline "!!!!! SKIPPING file " & file.name & "!!!!! DUPED ORDER ID"
                Else
                    logfile.writeline "reading " & file.name        
                    objBL.Execute "E:\code\Acquity\WebOrderImport\acq_WebOrder_import.xsd", file.path                   
                    count=count+1
                End If  
            previous = left(file.name,13)
            End If
        Next
    Next    

set objBL=Nothing
logfile.writeline "Done!"
Set logfile = nothing
Set parentfolder = nothing
set fso = nothing

我很确定这一行：

bjBL.Execute "E:\code\Acquity\WebOrderImport\acq_WebOrder_import.xsd", file.path

不断抛出异常，我需要代码在遇到错误时继续运行，而不是停止。我该怎么做？

Answer 1

我对这项技术有一些实践，但 AFAIK vbscript 只有一种方法来处理运行时异常：On Error Resume Next。

您可以阅读这些文章：MSDN article 和对我更有帮助的 about handling and notifying.

Answer 2

要让代码继续运行的快速且（非常）肮脏的方式，您可以将On Error Resume Next 添加到文件顶部，当遇到错误时会愉快地继续执行。

Answer 3

要忽略错误，请在可能导致错误的部分之前添加On Error Resume Next。要禁用“继续下一个”的效果，请使用On Error Goto 0。