Check if a drive exists

[DavidGraham167]

I'm using the following code to check if a file has been defined.

If txtGradeObs.Text = "" Or Dir(txtGradeObs.Text) = "" Then
     MsgBox("Specify the Grade job of Obstructions", vbExclamation, MsgBoxTitle)
     Exit Sub
End If

I'm getting an error if the drive does not exist. I don't think this was a problem in VB6.
I'm getting an IO exception - bad file name or number.
How can I get this to work?
Thanks

[si_the_geek]

There are various ways to avoid or handle that error.

Given the circumstances, I suspect you would like to show the same MsgBox if the drive does not exist, in which case you can use a simple method:

On Error Resume Next
If txtGradeObs.Text = "" Or Dir(txtGradeObs.Text) = "" Then
     MsgBox("Specify the Grade job of Obstructions", vbExclamation, MsgBoxTitle)
     Exit Sub
End If
On Error GoTo 0  '(or if you had a different "on error" line before, repeat it here)

This will cause the MsgBox to show (and the Exit Sub) if either of the conditions are true, or any error occurs during the Dir.