VBA从文本文件的属性获取日期

Question

我正试图抓住特定文本文件上传到计算机上的日期.日期不在实际文本文件中,而是必须右键单击,然后转到属性以查看日期.我需要将日期读入变量.

我不知道从哪里开始尝试完成这项工作.

谢谢,

杰西斯莫瑟蒙

Answer 1

如果内置的FileDateTime()不是你以后可以使用FSO:

Dim FSO As Object: Set FSO = CreateObject("Scripting.FileSystemObject")
Dim objFile As Object: Set objFile = FSO.Getfile("C:\bleep\bloop.file")

Debug.Print "Date created: " & objFile.DateCreated
Debug.Print "Date last accessed: " & objFile.DateLastAccessed
Debug.Print "Date last modified: " & objFile.DateLastModified

如果其扩展属性的日期检查这出.