1.7.1 文件属性

表1-8列出了File对象的属性。

表1-8 File对象的属性

下例将输出C:\Program Files\Common Files\System\ado\adovbs.inc这个文件的各种属性。

File.asp

<%@codepage=936%>
<%
Response.Charset = "GBK"

filePath = "C:\Program Files\Common Files\System\ado\adovbs.inc"
Set fso = CreateObject("Scripting.FileSystemObject")

'判断文件是否存在
If fso.FileExists(filePath) Then
    Set file = fso.GetFile(filePath)   '取得file对象
    '输出各种属性
    Response.Write "属性：" & file.Attributes &"<br>"
    Response.Write "创建时间：" & file.DateCreated &"<br>"
    Response.Write "上次访问时间：" & file.DateLastAccessed & "<br>"
    Response.Write "上次修改时间：" & file.DateLastModified & "<br>"
    Response.Write "所在驱动器：" & file.Drive &"<br>"
    Response.Write "文件名：" & file.Name &"<br>"
    Response.Write "父文件夹：" & file.ParentFolder &"<br>"
    Response.Write "路径：" & file.Path &"<br>"
    Response.Write "短文件名：" & file.ShortName &"<br>"
    Response.Write "短路径：" & file.ShortPath &"<br>"
    Response.Write "大小：" & file.Size &"字节<br>"
    Response.Write "类型：" & file.Type & "<br>"
Else
    Response.Write "文件不存在。"
End If
Set fso = Nothing
%>

运行结果如图1-6所示。

图1-6 文件属性