|
取得档案日期相关属性
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使用该函数的储存格要设成日期时间格式.
--------------------------------------------------------------------------------
相关文章
没有相关文章
|
|
|
|
