如何通过宏代码和实现对某个文件被更新的时间记录

Hertz_Lin

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

叶海峰

    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 09:15
Dim fs, f
   
    On Error Resume Next

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

todaynew

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

学习了...

Hertz_Lin

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

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

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

Hertz_Lin

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

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

Hertz_Lin

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

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

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