如何使用 VBA 检查文本文件的时间戳

Posted 2023-02-24

【中文标题】如何使用 VBA 检查文本文件的时间戳

【英文标题】：How to check timestamp of a text file using VBA

【发布时间】：2012-06-05 02:39:32

【问题描述】：

我正在尝试在 Excel 2003 VBA (Windows XP) 中编写代码，以确定外部 TXT 文件是否具有不同的时间戳，因此如果它发生更改，我可以“导入”它。

VBA中有什么函数可以救我吗？

【问题讨论】：

是的，有:) 顺便说一句，我们在谈论哪个时间戳？创建日期还是修改日期？

【参考方案1】：

我想你想要修改日期。如果是，那么看看这个

Debug.Print FileDateTime("C:\Sample.txt")

显示的日期和时间格式取决于系统的区域设置。

编辑

使用FileSystemObject

Option Explicit

Sub Sample()
    Dim oFS As Object
    Dim sFile As String

    sFile = "C:\MyFile.txt"

    Set oFS = CreateObject("Scripting.FileSystemObject")

    '~~> Created Date
    Debug.Print "Created Date : "; oFS.GetFile(sFile).DateCreated

    '~~> Modified Date
    Debug.Print "Modified Date : "; oFS.GetFile(sFile).Datelastmodified

    Set oFS = Nothing
End Sub