FolderObject.Attributes[=newattributes]

Can take any of the following values or a combination of the following values:
可获取下列变量中的其中一个值或多个值的组合

0 = Normal file
0 = 正常文件（Normal file）
1 = Read-only file
1 = 只读文件（Read-only file）
2 = Hidden file
2 = 隐藏文件（Hidden file）
4 = System file
4 = 系统文件（System file）
16 = Folder or directory
16 = 文件夹或目录（Folder or directory）
32 = File has changed since last backup
32 = 在最后一次备份之后又被修改过的文件（File has changed since last backup）
1024 = Link or shortcut
1024 = 超链接或者快捷方式（Link or shortcut）
2048 = Compressed file
2048 = 压缩文件（Compressed file）

<%
dim fs,f
set fs=Server.CreateObject("Scripting.FileSystemObject")
set f=fs.GetFile("c:test.txt")
Response.Write("The attributes of the file are: ")
Response.Write(f.Attributes)
set f=nothing
set fs=nothing
%>

Output:

The attributes of the file are: 32

<%
dim fs,fo
set fs=Server.CreateObject("Scripting.FileSystemObject")
set fo=fs.GetFolder("c:test")
Response.Write("The attributes of the folder are: ")
Response.Write(fo.Attributes)
set fo=nothing
set fs=nothing
%>

Output:

The attributes of the folder are: 16