VBA中返回和设置文件属性 - 程序员自由职业

在VBA中，你可以使用Scripting.FileSystemObject对象来获取和设置文件的属性。以下是一些示例，演示如何获取和设置文件属性：

获取文件属性：

1. 获取文件的创建时间、修改时间和访问时间：

   Sub GetFileAttributes()
       Dim fs As Object
       Dim file As Object
       
       '文件路径
       Dim filePath As String
       filePath = "C:\Path\To\Your\File.txt"
       
       '创建FileSystemObject
       Set fs = CreateObject("Scripting.FileSystemObject")
       Set file = fs.GetFile(filePath)
       
       '获取文件属性
       MsgBox "Created: " & file.DateCreated
       MsgBox "Last Modified: " & file.DateLastModified
       MsgBox "Last Accessed: " & file.DateLastAccessed
   End Sub

2. 获取文件大小：

   Sub GetFileSize()
       Dim fs As Object
       Dim file As Object
       
       '文件路径
       Dim filePath As String
       filePath = "C:\Path\To\Your\File.txt"
       
       '创建FileSystemObject
       Set fs = CreateObject("Scripting.FileSystemObject")
       Set file = fs.GetFile(filePath)
       
       '获取文件大小（以字节为单位）
       MsgBox "File Size: " & file.Size & " bytes"
   End Sub

设置文件属性：

1. 设置文件的创建时间、修改时间和访问时间：

注意：在Windows中，设置文件的创建时间通常需要管理员权限。

   Sub SetFileAttributes()
       Dim fs As Object
       Dim file As Object
       
       '文件路径
       Dim filePath As String
       filePath = "C:\Path\To\Your\File.txt"
       
       '创建FileSystemObject
       Set fs = CreateObject("Scripting.FileSystemObject")
       Set file = fs.GetFile(filePath)
       
       '设置文件属性
       file.DateCreated = Now - 30 '设置创建时间为30天前
       file.DateLastModified = Now - 15 '设置修改时间为15天前
       file.DateLastAccessed = Now - 5 '设置访问时间为5天前
   End Sub

请注意，上述示例中设置文件属性的功能可能需要适当的权限，特别是在尝试更改创建时间时可能需要管理员权限。确保在进行此类操作时小心谨慎，并确保你有足够的权限。

转载请注明出处：http://www.zyzy.cn/article/detail/6698/VBA