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 文件屬性