VBA神兵谱 | 用FileSystemObject玩转文件系统的「瑞士军刀」（二）-CSDN博客

本文链接：https://blog.csdn.net/weixin_44501554/article/details/147656124

系列文章

VBA神兵谱 | 用FileSystemObject玩转文件系统的「瑞士军刀」（一）

文章目录

系列文章

VBA文件操控指南 | 详解FileSystemObject高频方法，附场景化代码

在VBA中操控文件系统时，Scripting.FileSystemObject（FSO）的每个方法都像是一把精准的工具。本文将聚焦9个高频方法，通过实际场景案例，带你掌握它们的用法和避坑技巧！

🌳 1. BuildPath：路径拼接的「智能胶水」

功能：自动拼接路径和名称，智能处理\分隔符，避免手动拼接错误。

场景1：动态生成文件保存路径

Dim fso As New FileSystemObject
Dim basePath As String
basePath = "C:\Project\Reports"
' 自动生成完整路径：C:\Project\Reports\2023\July\Report.xlsx
fullPath = fso.BuildPath(fso.BuildPath(basePath, "2023"), "July\Report.xlsx")

场景2：避免硬编码路径分隔符

' 错误写法：path = "C:\Data" & "\" & "log.txt" （可能因多余斜杠报错）
' 正确写法：
fullPath = fso.BuildPath("C:\Data", "log.txt")  ' 输出 C:\Data\log.txt

📂 2. CopyFile：文件复制的「精准射手」

功能：复制文件，支持通配符*和覆盖选项。

场景1：备份单个文件（覆盖需谨慎！）

If fso.FileExists("C:\Data\Sales.xlsx") Then
    fso.CopyFile "C:\Data\Sales.xlsx", "D:\Backup\Sales.xlsx", True  ' True=覆盖
End If

场景2：批量复制所有日志文件

If fso.FolderExists("C:\Logs") Then
    fso.CopyFile "C:\Logs\*.log", "D:\Archives\"  ' 复制所有.log文件
End If

📦 3. CopyFolder：文件夹搬运工

功能：复制整个文件夹（包括子文件夹和文件）。

场景：项目备份

If fso.FolderExists("C:\Project\Current") Then
    fso.CopyFolder "C:\Project\Current", "D:\Backup\Current\"
    MsgBox "项目备份完成！"
End If

🛠️ 4. CreateFolder：目录创建大师

功能：创建新文件夹，但父路径必须存在！

正确用法：先检查，再创建

Dim newFolderPath As String
newFolderPath = "C:\Project\NewFolder"
If Not fso.FolderExists(newFolderPath) Then
    fso.CreateFolder newFolderPath  ' 若父路径不存在会报错！
End If

避坑：如需创建多级目录，需逐层检查：

If Not fso.FolderExists("C:\A\B") Then
    fso.CreateFolder "C:\A"
    fso.CreateFolder "C:\A\B"
End If

📝 5. CreateTextFile：文本文件生成器

功能：创建文本文件，返回可读写的TextStream对象。

场景：生成带时间戳的日志

Dim logFile As TextStream
Set logFile = fso.CreateTextFile("C:\Logs\activity.log", True)  ' True=覆盖
logFile.WriteLine "[" & Now & "] 系统启动成功"
logFile.Close

编码注意：如需Unicode支持，第三个参数设为True：

Set logFile = fso.CreateTextFile("C:\data.txt", True, True)

🗑️ 6. DeleteFile：文件清理专家

功能：删除文件，支持通配符和强制删除只读文件。

场景1：删除临时文件

If fso.FileExists("C:\Temp\cache.tmp") Then
    fso.DeleteFile "C:\Temp\cache.tmp", True  ' True=强制删除
End If

场景2：清空日志目录

If fso.FolderExists("C:\Logs") Then
    fso.DeleteFile "C:\Logs\*.log"  ' 删除所有.log文件
End If

🔥 7. DeleteFolder：文件夹粉碎机

功能：删除文件夹及其内容，慎用！

场景：清理过期备份

If fso.FolderExists("D:\Backup\2022") Then
    fso.DeleteFolder "D:\Backup\2022", True  ' True=删除只读文件
End If

🔍 8. DriveExists / FileExists / FolderExists：安全检查三剑客

典型用法：防御性编程

' 检查U盘是否存在
If fso.DriveExists("E:") Then
    fso.CopyFile "C:\Data\*.*", "E:\Backup\"
Else
    MsgBox "请插入U盘！"
End If

' 操作文件前必检查
If fso.FileExists("C:\Config\settings.ini") Then
    Set file = fso.GetFile("C:\Config\settings.ini")
    file.Copy "C:\Config\settings.bak"
End If

' 检查文件夹是否存在
If Not fso.FolderExists("C:\Output") Then
    fso.CreateFolder "C:\Output"
End If