有時(shí)我們需要用VBA代碼判斷某個(gè)文件夾或文件是否存在，以便進(jìn)行后續(xù)操作。可以用下面的代碼來(lái)實(shí)現(xiàn)這個(gè)功能：
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
將上述代碼放入標(biāo)準(zhǔn)模塊中，如果指定的文件夾或文件存在，F(xiàn)ileFolderExists返回True。調(diào)用上述代碼的方法：
1.判斷文件夾是否存在：
Public Sub TestFolderExistence()
If FileFolderExists("c:\windows\") Then
MsgBox "指定的文件夾存在！"
Else
MsgBox "指定的文件夾不存在！"
End If
End Sub
將代碼中的“c:\windows\”換成指定的文件夾，“c:\windows\”也可以寫(xiě)成“c:\windows”，即不要后面的“\”。
2.判斷文件是否存在：
Public Sub TestFileExistence()
If FileFolderExists("d:\Book1.xls") Then
MsgBox "指定的文件存在！"
Else
MsgBox "指定的文件不存在！"
End If
End Sub
