VBA: ловить файл не найден исключение с помощью DIR

Question

Я использую DIR для открытия файла:

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

, если DIR не существует, тогда я получаю исключение ПЛОХОЕ имя файла или номер;Однако, если dir существует, то этот оператор 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