文件系统对象 VBA 参考 - VBA

VBA的文件系统对象（FileSystemObject）是一个非常强大的工具，它允许开发人员在VBA中使用文件系统交互。通过FileSystemObject，程序员可以轻松地创建、复制、重命名、移动、打开和关闭文件或文件夹，以及检查它们的属性，如大小、类型和日期。

引用FileSystemObject

要使用FileSystemObject，首先需要对其进行引用。可以使用以下步骤进行引用：

1. 点击菜单栏上的“工具”，然后选择“参考”。
2. 滚动到“Microsoft Scripting Runtime”项目并勾选它。
3. 单击“确定”。

现在，FileSystemObject就可以在VBA代码中使用了。

创建FileSystemObject 对象

创建FileSystemObject对象的代码示例：

Dim fso As FileSystemObject
Set fso = New FileSystemObject

文件和文件夹的创建和操作

创建文件夹

下面是创建文件夹的代码示例：

Dim fso As FileSystemObject
Dim folderPath As String
folderPath = "C:\Temp\NewFolder"

' 检查文件夹是否存在
If Dir(folderPath, vbDirectory) = "" Then
    ' 创建文件夹
    Set fso = New FileSystemObject
    fso.CreateFolder folderPath
End If

创建文件

下面是创建文件的代码示例：

Dim fso As FileSystemObject
Dim filepath As String
filepath = "C:\Temp\MyFile.txt"

' 检查文件是否存在
If Dir(filepath) = "" Then
    ' 创建文件
    Set fso = New FileSystemObject
    fso.CreateTextFile filepath
End If

移动文件或文件夹

下面是将文件或文件夹移动到一个新位置的代码示例：

Dim fso As FileSystemObject
Dim source As String
Dim destination As String
source = "C:\Temp\MyFile.txt"
destination = "C:\Temp\NewFolder\MyFile.txt"

' 检查文件是否存在
If Dir(source) <> "" Then
    ' 移动文件
    Set fso = New FileSystemObject
    fso.MoveFile source, destination
End If

Dim fso As FileSystemObject
Dim source As String
Dim destination As String
source = "C:\Temp\MyFolder"
destination = "C:\Temp\NewFolder\MyFolder"

' 检查文件夹是否存在
If Dir(source, vbDirectory) <> "" Then
    ' 移动文件夹
    Set fso = New FileSystemObject
    fso.MoveFolder source, destination
End If

删除文件或文件夹

下面是删除文件或文件夹的代码示例：

Dim fso As FileSystemObject
Dim filepath As String
filepath = "C:\Temp\MyFile.txt"

' 检查文件是否存在
If Dir(filepath) <> "" Then
    ' 删除文件
    Set fso = New FileSystemObject
    fso.DeleteFile filepath
End If

Dim fso As FileSystemObject
Dim folderPath As String
folderPath = "C:\Temp\MyFolder"

' 检查文件夹是否存在
If Dir(folderPath, vbDirectory) <> "" Then
    ' 删除文件夹
    Set fso = New FileSystemObject
    fso.DeleteFolder folderPath
End If

文件和文件夹的属性

检索文件或文件夹的属性

下面是检索文件或文件夹属性的代码示例：

Dim fso As FileSystemObject
Dim filepath As String
Dim file As File
filepath = "C:\Temp\MyFile.txt"

' 检查文件是否存在
If Dir(filepath) <> "" Then
    ' 检索文件属性
    Set fso = New FileSystemObject
    Set file = fso.GetFile(filepath)
    
    Debug.Print "文件名称：" & file.Name
    Debug.Print "文件路径：" & file.Path
    Debug.Print "文件大小：" & file.Size
    Debug.Print "文件类型：" & file.Type
    Debug.Print "文件最后修改：" & file.DateLastModified
End If

Dim fso As FileSystemObject
Dim folderPath As String
Dim folder As Folder
folderPath = "C:\Temp\MyFolder"

' 检查文件夹是否存在
If Dir(folderPath, vbDirectory) <> "" Then
    ' 检索文件夹属性
    Set fso = New FileSystemObject
    Set folder = fso.GetFolder(folderPath)
    
    Debug.Print "文件夹名称：" & folder.Name
    Debug.Print "文件夹路径：" & folder.Path
    Debug.Print "文件夹大小：" & folder.Size
    Debug.Print "文件夹最后修改：" & folder.DateLastModified
End If

修改文件或文件夹的属性

可以使用FileSystemObject对象的属性修改文件或文件夹的属性。例如，下面的代码示例演示如何修改一个文件的日期属性：

Dim fso As FileSystemObject
Dim filepath As String
Dim file As File
filepath = "C:\Temp\MyFile.txt"

' 检查文件是否存在
If Dir(filepath) <> "" Then
    ' 修改文件最后修改的日期
    Set fso = New FileSystemObject
    Set file = fso.GetFile(filepath)
    
    file.DateLastModified = Now
End If

总结

通过FileSystemObject，VBA程序员可以轻松地管理文件和文件夹，检索它们的属性，并进行各种操作。FileSystemObject是VBA编程的必备工具之一，可以极大地提高生产力和效率。