取得档案日期相关属性
时间：2005-08-16 12:09 来源：未知 作者：leonchou 阅读：次
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使用该函数的储存格要设成日期时间格式.
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使用该函数的储存格要设成日期时间格式.
(责任编辑：admin)
顶一下
(0)
0%
踩一下
(0)
0%
相关内容
最新内容
推荐内容