УВА: ухватить файл не найден исключение с DIR

Question

я использую DIR, чтобы открыть файл:

If Dir("some dir" + "some file", vbNormal) <> "" The 
End If 

если DIR не существует, то я получаю исключение BAD имя файла или номер; Однако, если каталог существует, этот оператор IF работает нормально.

вопрос как справиться с исключением в случае, когда DIR не существует?

Answer 1

Public Function IsADirectory(ByVal TheName As String) As Boolean 
    If GetAttr(TheName) And vbDirectory Then 
    IsADirectory = True 
    End If 
End Function 

как насчет этого?

Answer 2

Следующий код обрабатывает случай мишени не существующего:

Public Function IsADirectory(ByVal TheName As String) As Boolean 
    On Error Resume Next 
    Dim theResult As Boolean 
    theResult = GetAttr(TheName) And vbDirectory 
    If Err.Number = 0 Then 
     IsADirectory = theResult 
    Else 
     MsgBox "The target is not found." 
    End If 
End Function