vba 修改文件时间属性

要在VBA中修改文件的时间属性，可以使用FileSystemObject对象的GetFile方法来获取文件对象，然后使用FileDateTime属性来获取和设置文件的创建时间、修改时间和访问时间。

以下是一个示例代码，演示如何使用VBA修改文件的时间属性：

Sub ChangeFileTime()
    Dim fso As Object
    Dim file As Object
    Dim filePath As String
    
    ' 文件路径
    filePath = "C:\path\to\file.txt"
    
    ' 创建FileSystemObject对象
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    ' 获取文件对象
    Set file = fso.GetFile(filePath)
    
    ' 修改文件的创建时间为指定日期和时间
    file.DateCreated = #1/1/2022 12:00:00 PM#
    
    ' 修改文件的修改时间为当前日期和时间
    file.DateLastModified = Now
    
    ' 修改文件的访问时间为指定日期和时间
    file.DateLastAccessed = #1/1/2022 12:00:00 PM#
    
    ' 释放对象
    Set file = Nothing
    Set fso = Nothing
End Sub

请注意，以上代码中的文件路径需要根据实际情况进行修改