转自: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