Access爱好者--
所属分类: 实用代码 作者: leonchou 更新日期:2003-10-29 19:09:17 阅读次数:142

取得档案日期相关属性


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


--------------------------------------------------------------------------------
相关文章

没有相关文章

系统优化
控件使用
数据库设计
数据库连接
系统安全
OLE自动化
常见问题
实用代码
属性详解
网络相关
实用API
经验分享
精选教程
字符处理
ADP相关



文章搜索



制作维护:李寻欢     Mail:[email protected]

关于本站 -- 网站服务 -- 版权条款 -- 联系方法 -- 网站帮助
Access爱好者版权所有 Copyright 2003-2005 All Rights Reserved 未经许可不得盗链