Summary: Describes the error handling semantics of VBScript.
There are two statements that affect error handling in VBScript:
On Error Resume Next On Error Goto 0
The meaning of the first statement is this: if you get an error, ignore it and resume execution on the next statement. As we'll see, there are some subtleties.
The second statement simply turns off “Resume Next” mode if it is on. The odd syntax is because Visual Basic has an error handling mode which VBScript does not – VB can branch to a labeled or numbered statement.
The subtlety in the “Resume Next” mode is best illustrated with an example.
Const InvalidCall = 5 Rhino.Print "Global code start" Blah1 Rhino.Print "Global code end" Sub Blah1() On Error Resume Next Rhino.Print "Blah1 Start" Blah2 Rhino.Print "Blah1 End" End Sub Sub Blah2() Rhino.Print "Blah2 Start" Err.Raise InvalidCall Rhino.Print "Blah2 End" End Sub
This prints out:
Global code start Blah1 Start Blah2 Start Blah1 End Global code end
When the error ocurred, Blah1 had already turned “Resume Next” mode on. The next statement after the error raise is Print “Blah2 End” but that statement was never executed. This is because the error mode is on a per-procedure basis, not a global basis.
Also, remember that the “Next” in “Resume Next” mode is the next statement. Consider these two scripts:
On Error Resume Next Temp = CInt(Foo.Bar(123)) Blah Temp Rhino.Print "Done" On Error Resume Next Blah CInt(Foo.Bar(123)) Rhino.Print "Done"
They do not have the same semantics. If Foo.Bar raises an error, then the first script passes Empty to Blah. The second one never calls Blah at all if an error is raised, because it resumes to the next statement.
You can get into similar trouble with other constructs. For example, these do have the same semantics:
On Error Resume Next If Blah Then Rhino.Print "Hello" End If Rhino.Print "Goodbye" On Error Resume Next If Blah Then Rhino.Print "Hello" Rhino.Print "Goodbye"
If Blah raises an error then it resumes on the Rhino.Print “Hello” in either case.
You can also get into trouble with loops:
On Error Resume Next For index = 1 to Blah Rhino.Print TypeName(index) Next Rhino.Print "Goodbye"
If Blah raises an error, this resumes into the loop, not after the loop. This prints out: