Error trapping when changing drive

[mvrp350]

Hi all,

I have a form with a dirlistbox and a drivelistbox.
When I change my drive to a: and there's no disk inserted it generates an arro6 68. But it isn't trapped. Can someone help me please?

Private Sub Drive1_Change()
 
On Error GoTo HSB_ErrorMsg
 
Dir1.Path = Drive1.Drive
Exit Sub
 
HSB_ErrorMsg:
    Screen.MousePointer = vbDefault
    MsgBox "An error occured during this action " & vbCrLf & Err.Number & " : " & Err.Description, vbExclamation, "HSB Error: HSBMng 1002"
    
End Sub

[Mark Sreeves]

Works on NT4

What OS are you using?

[mvrp350]

W2K, VB 6.0 sp5.

[Grate_Dev]

Private Sub Drive1_Change()
On Error GoTo HSB_ErrorMsg
Dir1.Path = Drive1.Drive
Exit Sub
HSB_ErrorMsg:
If Err.Number = 68 Then
MsgBox Err.Description & vbCrLf & "Please insert disk into the drive."
Drive1.Drive = CurDir
Else
MsgBox "An error occured during this action " & vbCrLf & Err.Number & " : " & Err.Description, vbExclamation, "HSB Error: HSBMng 1002"
End If
End Sub

Private Sub Dir1_Change()
On Error Resume Next
File1.Path = Dir1.Path
End Sub