VBA：捕捉文件未發現異常與DIR

Question

我使用DIR打開一個文件：

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

如果DIR沒有，然後我得到一個異常BAD的文件名或號碼存在;但是，如果目錄存在，那麼這個IF語句工作正常。

question在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