ASP Type 属性

FileObject.Type

FolderObject.Type

<%
dim fs,f
set fs=Server.CreateObject("Scripting.FileSystemObject")
set f=fs.GetFile("c:\test.txt")
Response.Write("The file test.txt is of type: ")
Response.Write(f.Type)
set f=nothing
set fs=nothing
%>

输出：

The file test.txt is of type: Text Document

<%
dim fs,f
set fs=Server.CreateObject("Scripting.FileSystemObject")
set f=fs.GetFile("c:\test.asp")
Response.Write("The file test.asp is of type: ")
Response.Write(f.Type)
set f=nothing
set fs=nothing
%>

输出：

The file test.asp is of type: Active Server Document

<%
dim fs,fo
set fs=Server.CreateObject("Scripting.FileSystemObject")
set fo=fs.GetFolder("c:\test")
Response.Write("The folder test is of type: ")
Response.Write(fo.Type)
set fo=nothing
set fs=nothing
%>

输出：

The folder test is of type: File Folder