2024年3月18日发(作者：)

在Visual Basic for Applications (VBA) 中，

FolderExists

方法是用来检测指定

路径下的文件夹（目录）是否存在的一个重要功能。这个方法属

于

stemObject

对象，它是Microsoft Scripting Runtime库的一

部分，常用于处理文件和文件夹的操作。

用法概述：

Vba

1' 创建FileSystemObject对象实例

2Set fso = CreateObject("stemObject")

3

4' 使用FolderExists方法检查文件夹是否存在

5Dim folderPath As String

6folderPath = "C:YourFolderSubFolder"

7

8If Exists(folderPath) Then

9 MsgBox "文件夹 '" & folderPath & "' 存在。"

10Else

11 MsgBox "文件夹 '" & folderPath & "' 不存在。"

12End If

13

14' 不再需要时释放对象

15Set fso = Nothing

详细解释：

1. 首先，通过

CreateObject

函数创建一个

FileSystemObject

实例，通常简

称为

fso

。

Vba

1Set fso = CreateObject("stemObject")

2. 定义一个变量

folderPath

，存储你要检查的文件夹路径。

Vba

1Dim folderPath As String

2folderPath = "C:YourFolderSubFolder"

3. 使用

FolderExists

方法并传入

folderPath

变量作为参数来检测文件夹是

否存在。

Vba

1If Exists(folderPath) Then

这个方法会返回一个布尔值（True 或 False），如果指定的文件夹存

在，则返回 True，反之则返回 False。

4. 根据

FolderExists

方法的返回结果执行相应的操作。在这个例子中，使

用

MsgBox

显示一条消息告知用户文件夹是否存在。

Vba

1If Exists(folderPath) Then

2 MsgBox "文件夹 '" & folderPath & "' 存在。"

3Else

4 MsgBox "文件夹 '" & folderPath & "' 不存在。"

5End If

5. 在完成所有文件系统操作后，为了资源管理的最佳实践，应当将不再需

要的对象设置为

Nothing

以释放内存。

Vba

1Set fso = Nothing

总之，

FolderExists

方法在VBA编程中非常有用，可以帮助开发者在执行文件

操作之前确认目标文件夹是否存在，避免因文件夹不存在而引发的错误。