Handling Errors during Execution 2

[kellyputty]

The following code always ends in a runtime error instead of being handled by the On Error statement. Any idea what I am doing wrong?
<code>
Private Sub cmdOpenFile_Click()
On Error GoTo HandleErrors
Open txtPathName.Text For Input As #1
Dim S As String
Input #1, S
cmdOpenFile_Click_Exit:
Exit Sub
HandleErrors:
Select Case Err.Number
Case 53
MsgBox "File not found."
Case 71
MsgBox "Disk not Ready."
Case 76
MsgBox "Path not found."
Case Else
Err.Raise Err
End Select
Resume
End Sub
</code>
Thanks in advance,
kellyputty

 

[SkipVought]

Run time error on WHAT statement?

Skip,

_{[red]A palindrome gone wrong?[/red]
A man, a plan, a ROOT canal...
PULLEMALL!}

 

[kellyputty]

Any of them. It appears that if I test error 53,for example, I always get the VB run-time error instead of the MsgBox I coded for that. My code isn't handling the errors at all. Not sure what to do different.

Thanks for the help Skip.
KellyPutty

 

[SkipVought]

Why are you using Err.Raise?

What did you want to happen?

Skip,

_{[red]A palindrome gone wrong?[/red]
A man, a plan, a ROOT canal...
PULLEMALL!}

 

[kellyputty]

I thought it would raise others errors I haven't coded for. If I leave it out I still get the same result. For example:

I purposely enter a file that doesn't exist in the txtPathName.Text
I get a VB run-time error instead of the
MsgBox "File not found." (Which is what I want)

Thanks again,
KellyPutty

 

[SkipVought]

You might want to check your error numbers

Skip,

_{[red]A palindrome gone wrong?[/red]
A man, a plan, a ROOT canal...
PULLEMALL!}

 

[kellyputty]

The numbers are correct, even the VB run-time error shows the same error numbers.
KellyPutty

 

[BobRodes]

Go into Tools Options. On the General tab, see if you have Break on All Errors selected. If so, you have disabled your error handling. Select either of the other two options.

HTH

Bob

 

[SkipVought]

I got an err number of 75 for a path error.

Problem is with your approch and resume, ther is no error correction so you'll loop indefinitely.

Take a look at On Error resume next.



Skip,

_{[red]A palindrome gone wrong?[/red]
A man, a plan, a ROOT canal...
PULLEMALL!}

 

[kellyputty]

Skip and Bob.

Thank you that worked.

I had my error handling disabled and an infinite loop because of the resume.

Grateful,
KellyPutty