对象不支持该属性或方法 Dim fso As Object Dim file As Object Dim filePath As String 文件路径 filePath = E检测设备压力试验机新vbafiletxt 创建FileSystemObject对象 Set fso = CreateObjectScriptingFileSys

这段代码中出现了"对象不支持该属性或方法"的错误是因为在修改文件的创建时间和访问时间时，使用了错误的属性和方法。

要修改文件的创建时间和访问时间，可以使用fso.GetFile(filePath).DateCreated和fso.GetFile(filePath).DateLastAccessed属性来获取文件的创建时间和访问时间，然后使用fso.GetFile(filePath).DateCreated = #1/1/2022 12:00:00 PM#和fso.GetFile(filePath).DateLastAccessed = #1/1/2022 12:00:00 PM#来修改文件的创建时间和访问时间。

以下是修改文件创建时间和访问时间的修改后代码：

Dim fso As Object
Dim file As Object
Dim filePath As String

' 文件路径
filePath = "E:\检测设备\压力试验机\新vba\file.txt"

' 创建FileSystemObject对象
Set fso = CreateObject("Scripting.FileSystemObject")

' 获取文件对象
Set file = fso.GetFile(filePath)

' 修改文件的创建时间为指定日期和时间
fso.GetFile(filePath).DateCreated = #1/1/2022 12:00:00 PM#

' 修改文件的访问时间为指定日期和时间
fso.GetFile(filePath).DateLastAccessed = #1/1/2022 12:00:00 PM#

' 释放对象
Set file = Nothing
Set fso = Nothing

请注意，修改文件的创建时间和访问时间需要具有适当的权限