| DateLastAccessed 属性 |
object 应为 File 或 Folder 对象的名称。
Function ShowFileAccessInfo(filespec)
Dim fso, f, s
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFile(filespec)
s = UCase(filespec) & "<BR>"
s = s & "创建时间： " & f.DateCreated & "<BR>"
s = s & "上次访问时间： " & f.DateLastAccessed & vbCrLf
s = s & "上次修改时间： " & f.DateLastModified
ShowFileAccessInfo = s
End Function
| 重点 此属性依赖于操作系统的行为。如果操作系统不支持提供时间信息，则 DateLastAccessed 属性不返回任何值。 | |