Function FileDate(filespec, datetype) Dim fs, f, s Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.GetFile(filespec) Select Case datetype Case 1: FileDate = f.DateCreated 档案建立日期 Case 2: FileDate = f.DateLastaccessed 存取日期 Case 3: FileDate = f.DateLastModified 修改日期 End Select End Function 使用范例 --在工作输入 =FILEDATE("d:\temp\1115p.zip",2)得到指定档案的最後存取时间, 代码可容许 1, 2, 3使用该函数的储存格要设成日期时间格式.