Function ShowFileAccessInfo(filespec) Dim fso, f, s Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.GetFile(filespec) s = f.Name " 位于驅動器 " UCase(f.Drive) "BR>" s = s "創建時間:" f.DateCreated "BR>" s = s "上次訪問時間:" f.DateLastAccessed "BR>" s = s "上次修改時間:" f.DateLastModified ShowFileAccessInfo = sEnd Function