VBA判断指定的文件夹或文件是否存在

转自：http://blog.csdn.net/ocean20/article/details/6411316

有时我们需要用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。调用上述代码的方法：

• 判断文件夹是否存在：

Public Sub TestFolderExistence()

    If FileFolderExists("c:/windows/") Then 
        MsgBox "指定的文件夹存在！" 
    Else 
        MsgBox "指定的文件夹不存在！" 
    End If

End Sub

• 判断文件是否存在：
  

Public Sub TestFileExistence()

    If FileFolderExists("d:/Book1.xls") Then 
        MsgBox "指定的文件存在！" 
    Else 
        MsgBox "指定的文件不存在！" 
    End If

End Sub