Office中国论坛/Access中国论坛

标题: 如何通过宏代码和实现对某个文件被更新的时间记录 [打印本页]

作者: Hertz_Lin 时间: 2012-11-27 23:14
标题: 如何通过宏代码和实现对某个文件被更新的时间记录

本人需要对D:盘下某个文件如Testing.xlsx记录这个文件每次被更新过的时间进行记录，最好能把这些每次文件的更新时间记录到表里面去。这样可查看这个文件在每次被更新的时间记录，不知道有没有什么代码能够实现？请各位大侠帮帮忙，指点一下...在此感谢！！！

作者: 叶海峰 时间: 2012-11-28 09:15
Dim fs, f

On Error Resume Next

Set fs = CreateObject("Scripting.FileSystemObject")

Set f = fs.Getfile("c:\1.xls")

MsgBox "最后更新时间:" & f.DateLastModified & ",最后访问日期:" & f.DateLastAccessed

作者: Hertz_Lin 时间: 2012-11-28 10:16

叶海峰发表于 2012-11-28 09:15
Dim fs, f

On Error Resume Next

谢谢指点！！！有没有办法把 "最后更新时间:" & f.DateLastModified & ",最后访问日期:" & f.DateLastAccessed 这两个时间记录到表里面去呢？做一个表，设这两个字段名，每次执行宏的时候，能把这两个时间追加到表里？谢谢了...

作者: todaynew 时间: 2012-11-28 14:40

Hertz_Lin 发表于 2012-11-28 10:16
谢谢指点！！！有没有办法把 "最后更新时间:" & f.DateLastModified & ",最后访问日期:" & f.DateLastAc ...

function insertfile(tbname as string)
'示例：call insertfile("c:f1.txt")
Dim fs, f
Dim ssql as string
On Error Resume Next
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.Getfile(tbname)
ssql="insert into 阁下的数据表名称 (文件名,更新时间,最后访问时间) "
ssql=ssql & "values ('" & f.name & "',#" & f.DateLastModified & "#,#" & f.DateLastAccessed & "#)"
docmd.runsql ssql
end function

作者: huangli0356 时间: 2012-11-29 11:25
学习了...

作者: Hertz_Lin 时间: 2012-11-29 22:56

todaynew 发表于 2012-11-28 14:40
function insertfile(tbname as string)
'示例：call insertfile("c:f1.txt")
Dim fs, f

您好！谢谢回复，我是菜鸟一个，能不能帮忙说得再具体点,如我要读取的文件为D:\AX_Tools\Inv.xlsx
我在数据表要设哪些字段(如数据表名为"Time")
整个代码要怎么写?请赐教！！！感谢。。。
1.读取文件名

:\AX_Tools\Inv.xlsx
2.数据表名称"Time",要设哪些字段进去?

作者: yanghua1900363 时间: 2012-11-30 10:34

Hertz_Lin 发表于 2012-11-29 22:56
您好！谢谢回复，我是菜鸟一个，能不能帮忙说得再具体点,如我要读取的文件为D:\AX_Tools\Inv.xlsx
我在数 ...

数据表中基本的字段“todaynew”老师在上贴已经告诉你了：文件名,更新时间,最后访问时间

作者: Hertz_Lin 时间: 2012-11-30 17:00

yanghua1900363 发表于 2012-11-30 10:34
数据表中基本的字段“todaynew”老师在上贴已经告诉你了：文件名,更新时间,最后访问时间

感谢Todaynew老师和大家,问题解决了,谢谢...

作者: Hertz_Lin 时间: 2012-11-30 21:04
本帖最后由 Hertz_Lin 于 2012-11-30 21:06 编辑

todaynew 发表于 2012-11-28 14:40
function insertfile(tbname as string)
'示例：call insertfile("c:f1.txt")
Dim fs, f

todaynew老师,您好,
再请教您一个问题,要把文件的作者名也追加到表里去,作者名要如何来定义,用 "Last saved by"字段不能用,在网上baidu也查不到相关说明,请指教,再次感谢！！！

作者: todaynew 时间: 2012-12-1 19:43

Hertz_Lin 发表于 2012-11-30 21:04
todaynew老师,您好,
再请教您一个问题,要把文件的作者名也追加到表里去,作者名要如何来定义,用 "Last ...

FileSystemObject的File对象没有作者这个属性。

作者: Hertz_Lin 时间: 2012-12-2 00:14

todaynew 发表于 2012-12-1 19:43
FileSystemObject的File对象没有作者这个属性。

衷心感谢TodayNew老师...!!!

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