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