Excel VBA 修改文件的属性时间

要修改文件的属性时间，您可以使用FileSystemObject对象中的File对象。下面是一个示例代码，它演示了如何使用VBA修改文件的创建时间、修改时间和访问时间：

Sub ModifyFileAttributes()
    Dim fso As Object
    Dim file As Object
    Dim filePath As String
    
    ' 设置文件路径
    filePath = "C:\Test\example.txt"
    
    ' 创建FileSystemObject对象
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    ' 获取文件对象
    Set file = fso.GetFile(filePath)
    
    ' 修改创建时间
    file.DateCreated = Now
    
    ' 修改修改时间
    file.DateLastModified = Now
    
    ' 修改访问时间
    file.DateLastAccessed = Now
    
    ' 释放对象
    Set file = Nothing
    Set fso = Nothing
End Sub

请注意，您需要将filePath变量设置为您要修改属性时间的文件的实际路径。此代码将使用当前日期和时间（Now函数）来修改文件的创建时间、修改时间和访问时间