Mega Code Archive

 

Categories / VisualBasic Script / Language Basics

 

Placing a Resume Next Statement in Your Error Handler

Sub TestResumeNextInError()     On Error GoTo TestResumeNextInError_Err     Kill "AnyFile"     If Err.number = 0 Then     Else         msgBox "We Didn't Die, But the Error Was: " & Err.Description     End If     Exit Sub TestResumeNextInError_Err:     Resume Next End Sub