VBA 判断 文件夹是否存在

可以使用VBA中的Dir函数来判断文件夹是否存在。具体代码如下：

Function FolderExists(ByVal FolderPath As String) As Boolean
    On Error Resume Next
    FolderExists = (Dir(FolderPath, vbDirectory) <> "")
    On Error GoTo 0
End Function

使用方法：

Sub TestFolderExists()
    If FolderExists("C:\TestFolder") Then
        MsgBox "文件夹存在"
    Else
        MsgBox "文件夹不存在"
    End If
End Sub

其中，函数FolderExists返回一个布尔值，如果文件夹存在则返回True，否则返回False。在使用Dir函数时，第二个参数需要传递vbDirectory常量，表示要查找的是一个文件夹。使用On Error Resume Next语句可以避免当文件夹不存在时的运行时错误。