FolderExists 方法

DATE: 2016-11-10 / VIEWS: 728

FolderExists 方法
如果指定的文件夹存在，则返回 True；否则返回 False。

object.FolderExists(folderspec)

参数
object

必选项。应为 FileSystemObject 的名称。

folderspec

必选项。文件夹名称，表示要确定是否存在的文件夹。如果该文件夹不在当前文件夹中，则必须提供完整路径名（绝对路径或相对路径）。

说明
下面例子举例说明如何使用 FolderExists 方法：

程序代码 程序代码
<%Dim fso,FSOIsOK
        FSOIsOK=1
Set fso=Server.CreateObject("Scripting.FileSystemObject")
        If Err<>0 Then
            Err.Clear
            FSOIsOK=0
        End If
        Dim D_Name,F_Name
        If FSOIsOK=1 Then
            D_Name="month_"&month(Now())
            If fso.FolderExists(Server.MapPath(D_Name))=False Then
            fso.CreateFolder Server.MapPath(D_Name)
            End If
        Else
            D_Name="All_Files"
        End If
        F_Name=D_Name&"/test.txt"
        Set fout = fso.CreateTextFile(server.mappath(F_Name))
        fout.WriteLine "这是测试！"
        fout.close
        Set fso=Nothing
        %>