Excel VBA 检查目录是否存在 - VBA

在 Excel VBA 中，我们可以使用 Dir 函数来检查一个文件夹是否存在。

代码示例

Sub CheckFolderExists()
    Dim FolderPath As String
    FolderPath = "C:\Users\Username\Desktop\Test"
    If Dir(FolderPath, vbDirectory) = "" Then
        MsgBox "Folder does not exist."
    Else
        MsgBox "Folder exists."
    End If
End Sub

在上面的代码中，我们定义了一个名为 FolderPath 的字符串变量，该变量存储了要检查的文件夹路径。

然后我们使用 Dir 函数来检查该文件夹是否存在。Dir 函数用于检索指定目录中的第一个文件名或目录名。vbDirectory 参数指定 Dir 函数应该检索目录而不是文件。

如果 Dir 函数返回的值为空字符串，则表示该文件夹不存在，程序将弹出消息框显示“Folder does not exist.”。

如果 Dir 函数返回的值不为空字符串，则表示该文件夹存在，程序将弹出消息框显示“Folder exists.”。

总结

这就是在 Excel VBA 中检查文件夹是否存在的方法。使用 Dir 函数可以快速进行文件夹存在性检查，帮助我们编写更加健壮的代码。