Scripting vbscript中的错误处理?
我们有一些旧的遗留vbscript代码,需要处理一些错误。由于以前从未使用过vbscript,我完全不知所措。代码如下:Scripting vbscript中的错误处理?,scripting,vbscript,error-handling,Scripting,Vbscript,Error Handling,我们有一些旧的遗留vbscript代码,需要处理一些错误。由于以前从未使用过vbscript,我完全不知所措。代码如下: set objBL = CreateObject("SQLXMLBulkLoad.SQLXMLBulkload.4.0") objBL.ConnectionString = "connectionstring" objBL.KeepIdentity = false objBL.ErrorLogFile = "E:\code\Acquity\WebOrderImport\log
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
不断抛出异常,我需要代码在遇到错误时保持运行,而不是停止。如何才能做到这一点?为了快速(非常)肮脏地让代码继续运行,您可以在错误恢复时将
添加到文件顶部,当遇到错误时,执行将愉快地继续进行。我对这项技术有一点练习,但AFAIK vbscript只有一种处理运行时异常的方法:错误恢复下一步
您可以阅读以下文章:如果要忽略错误,请在可能导致错误的部分之前添加On Error Resume Next
。要禁用“resume next”(继续下一步)的效果,请在错误转到0时使用
。您可以在ASP Free上阅读我的文章,了解有关VBScript中错误捕获的更多信息。