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