完整的 Folder 对象参考手册Type 属性用于返回指定文件或文件夹的类型。
语法
FileObject.Type
FolderObject.Type
FolderObject.Type
针对 File 对象的实例
<%
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.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,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
针对 Folder 对象的实例
<%
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
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
完整的 Folder 对象参考手册其他扩展