DirExistN

Public Function DirExists(sDirName As String) As Boolean
Const ErrDiskNotReady = 71

On Error GoTo ErrExit

DirExists = CBool(Len(Dir(sDirName, vbDirectory)) <> 0)
Exit Function

ErrExit:
DirExists = False
If (Err.Number = ErrDiskNotReady) Then
If MsgBox("Please insert Disk", _
vbExclamation + vbOKCancel) = vbOK Then
Resume
Else
Exit Function
End If
Else
ShowError
End If
Exit Function
End Function