Office中国论坛/Access中国论坛 › Access中国门户旧版 ›Access› 编程心得绝招› 实际编程 › 查看内容

取得档案日期相关属性

1970-1-1 08:00| 发布者: leonchou| 查看: 1153| 评论: 0

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使用该函数的储存格要设成日期时间格式.

收藏分享邀请

帐号		自动登录	找回密码
密码			注册

取得档案日期相关属性

最新评论

相关分类