[求助]如何获得系统中文件访问或修改的最后时间?

mikewolf2k

想加入限制使用时间的功能，预得到系统中所有文件的最终访问或修改或创建时间，不知vb中能否获得？

雪山飞狐_lzh

Sub tt()
Dim fso As New FileSystemObject
Dim f As File
Set f = fso.GetFile("c:\123.txt")
MsgBox f.DateCreated
MsgBox f.DateLastAccessed
MsgBox f.DateLastModified End Sub

mikewolf2k

谢谢。不过该方法必须输入固定文件名，如果该文件不是最后访问过的就不能取得所有最终的访问时间。如果这里的文件名支持通配符就好了。请问还有其它方法能满足我的需要吗？

雪山飞狐_lzh

配合Dir函数做

mikewolf2k

版主能否再明确一点，dir函数如何获得不确定的文件名？多谢！

雪山飞狐_lzh

得到系统中所有文件的?太慢了，可以考虑获取特定的日志文件的

mikewolf2k

“特定的文件”？得windows会不时访问，但又不是每次启动都会访问的文件才行，版主知道有这样的文件吗？

雪山飞狐_lzh

简单的办法是自己维护一个日志文件，运行一遍就向文件里写点东西：）

mikewolf2k

这样不好，这样写入的是当前的系统时间，如果先改时间在写就没用了。