有时我们需要用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
没有创造的生活不能算生活，只能算活着。
