CODEWITHSUNDEEP
scriptingvbscripterror-handling
broke
broke

Reputation: 8312

Error handling in vbscript?

There is some old legacy vbscript code we have that needs some sort of error handing in it. Having never used vbscript before, I'm at a total loss. Here is the code:

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

I'm pretty sure this line:

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

keeps throwing exceptions, and I need the code to keep running when it hits an error, rather than stopping. How can I do this?

Upvotes: 2

Views: 2943

Answers (3)

selfnamed
selfnamed

Reputation: 176

I have a little practice with this technology, but AFAIK vbscript has only one way to handle runtime-exceptions: On Error Resume Next.

You can read these articles: MSDN article and more helpful for me about handling and notifying.

Upvotes: 2

cdeszaq
cdeszaq

Reputation: 31320

For a quick and (very) dirty way to get the code to keep running, you can add On Error Resume Next to the top of the file, and execution will happily carry on when it hits an error.

Upvotes: 3

MBu
MBu

Reputation: 2950

To ignore errors, add On Error Resume Next before the part that can cause them. To disable the effect of "resume next", use On Error Goto 0.

Upvotes: 5

Related Questions