What sort of error handling is ther in Diadem SCRIPT?

Question

I know and am using:
On Error Resume Next
On Error GoTo 0
However, I want to be able to go to the bottom of my script and finish some items and end the script as if everything executed properly. 
I was hoping to do something along the lines of a try...catch block, but appearantly there is not anything like that inside VB.
Thanks!

Answer 1

Hi
There is an Err object to get or clear the last error. Search for "Err Object" in the help:
On Error Resume Next
Err.Raise 6   ' Raise an overflow error.
MsgBox ("Error # " & CStr(Err.Number) & " " & Err.Description)
Err.Clear      ' Clear the error.
On other solution are some special Events: Try this small script. There is an spelling error in the second line but the Event_terminate event is executed properly.
Set SystemEvents = New SystemEventClass
Msgbx "hallo"
Class SystemEventClass
  Private Sub Class_Initialize   ' Initialize Event
    Call MsgBoxDisp("Initialize")
  End Sub
  Private Sub Class_Terminate   ' Terminate Event
     Call MsgBoxDisp("Terminate")
  End Sub
End Class
Hope this helps
Winfried