FolderExists 方法
如果指定的文件夹存在，则返回 True；否则返回 False。
object.FolderExists(folderspec)
参数
object
必选项。应为 FileSystemObject 的名称。
folderspec
必选项。文件夹名称，表示要确定是否存在的文件夹。如果该文件夹不在当前文件夹中，则必须提供完整路径名（绝对路径或相对路径）。
说明
下面例子举例说明如何使用 FolderExists 方法：
Function ReportFolderStatus(fldr) Dim fso, msg Set fso = CreateObject("Scripting.FileSystemObject") If (fso.FolderExists(fldr)) Then msg = fldr & " 存在。" Else msg = fldr & " 不存在。" End If ReportFolderStatus = msgEnd Function