没看到你的附件。


Dim fs, f
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile("全路径文件名")
MsgBox f.DateCreated '获取创建时间
MsgBox f.DateLastModified '最后修改时间
Set f = Nothing
Set fs = Nothing

谢谢楼上的提醒，不过不是我想要的，
比如我现在已经发现时间2008-7-2 14：34：32 对应的是 AB AF OD DC C8 01，也许是AF OD DC C8 01，我现在拿不准，有誰能帮我推算一下吗？多谢。 用copymemoy 这个API是不行的，我试过，肯定是别的算法，请大家帮忙。多谢

推算啥呢
你那就是txt文件，根本就直接读