Office中国论坛/Access中国论坛

标题: 如何在ACCESS窗体中显示数据库的最后更新日期？ [打印本页]

作者: csp820 时间: 2006-12-1 22:59
标题: 如何在ACCESS窗体中显示数据库的最后更新日期？
如何在ACCESS窗体中显示当前使用着的数据库的最后更新日期？

作者: hi-wzj 时间: 2006-12-1 23:04
　　Dim fs, f,aa, bb, cc
　　Set fs = CreateObject("Scripting.FileSystemObject")
　　Set f = fs.GetFile("d\adc.mdb")
　　aa = f.DateCreated　　 '建立日期
　　bb = f.DateLastAccessed　　'最后访问日期
　　cc = f.DateLastModified　　'最后更新日期

作者: kj520 时间: 2006-12-8 05:36

以下是引用hi-wzj在2006-12-1 15:04:00的发言：
　　Dim fs, f,aa, bb, cc
　　Set fs = CreateObject("Scripting.FileSystemObject")
　　Set f = fs.GetFile("d\adc.mdb")
　　aa = f.DateCreated　　 '建立日期
　　bb = f.DateLastAccessed　　'最后访问日期
　　cc = f.DateLastModified　　'最后更新日期

代码写在哪里呢?

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)