悠悠博客 关注Ajax技术与web开发

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 = msg
End Function