有時我們需要用VBA代碼判斷某個文件夾或文件是否存在，以便進行后續操作。可以用下面的代碼來實現這個功能：
Public Function FileFolderExists(strFullPath As String) As Boolean
On Error GoTo EarlyExit
If Not Dir(strFullPath, vbDirectory) = vbNullString Then FileFolderExists = True
EarlyExit:
On Error GoTo 0
End Function
將上述代碼放入標準模塊中，如果指定的文件夾或文件存在，FileFolderExists返回True。調用上述代碼的方法：
1.判斷文件夾是否存在：
Public Sub TestFolderExistence()
If FileFolderExists("c:\windows\") Then
MsgBox "指定的文件夾存在！"
Else
MsgBox "指定的文件夾不存在！"
End If
End Sub
將代碼中的“c:\windows\”換成指定的文件夾，“c:\windows\”也可以寫成“c:\windows”，即不要后面的“\”。
2.判斷文件是否存在：
Public Sub TestFileExistence()
If FileFolderExists("d:\Book1.xls") Then
MsgBox "指定的文件存在！"
Else
MsgBox "指定的文件不存在！"
End If
End Sub
