结合如上三个函数请参看如下示例:
Function FileAccessInfo(files)
Dim fs, f, s
Set fs = CreateObject("Scripting.FileSystemObject"
Set f = fs.GetFile(files)
s = UCase(files) & "<BR>"
s = s & "创建时间: " & f.DateCreated & "<BR>"
s = s & "上次访问时间: " & f.DateLastAccessed & vbCrLf
s = s & "上次修改时间: " & f.DateLastModified
FileAccessInfo = s
End Function
该函数将显示出files的建立时间,上次的访问时间,和最后一次修改的时间。 (Sz转自http://blog.csdn.net/fhfanxin)