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

如果它是扩展属性检查中的日期 this出去。