'Open a New Project and add the following to Form1
'       DriveListBox
'       DirListBox
'
'Copy This entire file and Paste into (General)(Declarations)
'
'Handles Invalid Drives
'
Private Sub Drive1_Change()

Dim rCode

On Error GoTo DriveHandler

Dir1.Path = Drive1.Drive
Exit Sub

DriveHandler:
rCode = MsgBox("error reading drive " & Drive1.Drive, vbRetryCancel)

Select Case rCode

    Case vbCancel
        Drive1.Drive = Dir1.Path
            
    Case vbRetry
        Drive1_Change
    
End Select

End Sub