Error Handling - on error goto Label?

[MCubitt]

Within VBS, is it possible to provide my own error handling, such:

.
.
on error goto myerrorhandle
.
.
quit

myerrorhandle:
if Err.Number=3 then
echo "Oh no, not good"
else
echo "Not so bad, but not great."
end if
quit

 

[tsuji]

Hello MCubitt,

Vbs does not support On Error Goto Label directive. Instead, it is not difficult to implement the functionality. Something like this illustrate the idea.

set fso=createobject("scripting.filesystemobject")
on error resume next
set f=fso.opentextfile("nonexisting.txt")
errcode=err.number
err.clear
select case errcode
	case 53
                call errorhandle_53
        'case etc...
	case else
		msgbox err.number & vbcrlf & err.description
		'do something / call some routine
end select
'some other stuff
on error goto 0
'do some other stuff
set f=nothing
set fso=nothing

sub errorhandle_53	'file not found
	msgbox err.number & vbcrlf & err.description
        'do something useful
end sub

 

[PHV]

On VBS you can only use this syntax:

On Error Resume Next
On Error GoTo 0

The Err object is available:

On Error Resume Next
Err.Raise 3
Msg="Error# " & CStr(Err.Number) & " " & Err.Description _
 & " from " & Err.Source
WScript.Echo Msg
Err.Clear

Hope This Help
PH.