VBA：私はファイルを開くためにDIRを使用していDIR

Question

でファイルが見つからない例外をキャッチ：DIRは、私は例外BADファイル名または番号を取得後、存在しない場合

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

を。しかし、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