Function ShowFileAccessInfo(filespec) Dim fso, d, f, s Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.GetFile(filespec) s = UCase(f.Path) "BR>" s = s "创建时间:" f.DateCreated "BR>" s = s "上次访问时间:" f.DateLastAccessed "BR>" s = s "上次修改时间:" f.DateLastModified ShowFileAccessInfo = sEnd Function