DateLastModified 属性

[code]Function ShowFileAccessInfo(filespec)    Dim fso, f, s    Set fso = CreateObject("Scripting.FileSystemObject")    Set f = fso.GetFile(filespec)    s = UCase(filespec) & "<BR>"    s = s & "[/code]创建时间：[code]" & f.DateCreated & "<BR>"[/code][code]    s = s & "[/code]上次访问时间：[code]" & f.DateLastAccessed & "<BR>"[/code][code]    s = s & "[/code]上次修改时间：[code]" & [b]f.DateLastModified[/b]  [/code][code]ShowFileAccessInfo = s [/code][code]End Function[/code]