FolderExists 方法
FolderExists 方法
如果指定的文件夹存在,则返回 True;否则返回 False。
object.FolderExists(folderspec)
参数
object
必选项。应为 FileSystemObject 的名称。
folderspec
必选项。文件夹名称,表示要确定是否存在的文件夹。如果该文件夹不在当前文件夹中,则必须提供完整路径名(绝对路径或相对路径)。
说明
下面例子举例说明如何使用 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
%>
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
%>