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

有时我们需要用VBA代码判断某个文件夹或文件是否存在&＃xff0c;以便进行后续操作。可以用下面的代码来实现这个功能&＃xff1a;

Public Function FileFolderExists(strFullPath As String) As Boolean

    On Error GoTo EarlyExit
    If Not Dir(strFullPath, vbDirectory) &＃61; vbNullString Then FileFolderExists &＃61; True
EarlyExit:
    On Error GoTo 0

End Function

    将上述代码放入标准模块中&＃xff0c;如果指定的文件夹或文件存在&＃xff0c;FileFolderExists返回True。调用上述代码的方法&＃xff1a;

    1.判断文件夹是否存在&＃xff1a;

Public Sub TestFolderExistence()

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

End Sub

    将代码中的“c:/windows/”换成指定的文件夹&＃xff0c;“c:/windows/”也可以写成“c:/windows”&＃xff0c;即不要后面的“/”。

    2.判断文件是否存在&＃xff1a;

Public Sub TestFileExistence()

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

End Sub