本文目录导读：

1. FileSystemObject 是什么？
2. FSO 的初始化与基础用法
3. 文件夹与驱动器的管理
4. 高级技巧与实战应用
5. 安全性与注意事项
6. 与PowerShell的对比
7. 典型应用场景
8. 故障排查与调试

在Windows平台的脚本开发领域,Scripting.FileSystemObject（以下简称FSO）是一个经久不衰的核心组件，无论是自动化文件管理、日志记录还是数据处理，FSO以其简洁的语法和强大的功能成为VBScript/JScript开发者的首选工具，本文将全面剖析FSO的架构、常用方法、实际应用场景及潜在风险，并附可运行的代码示例。

FileSystemObject 是什么？

FileSystemObject是微软提供的脚本运行时库（scrrun.dll）中的一个COM对象，它允许通过脚本语言（如VBScript、JScript）直接操作文件系统，自Windows 98时代起，FSO便被集成到操作系统中，成为无需额外安装的基础工具。

核心功能包括：

• 文件读写与属性管理
• 文件夹的创建、删除与遍历
• 驱动器信息获取（如剩余空间）
• 文本流（TextStream）操作

FSO 的初始化与基础用法

创建对象实例

在VBScript中初始化FSO仅需一行代码：

Set fso = CreateObject("Scripting.FileSystemObject")

此代码通过COM接口实例化FSO对象,随后即可调用其属性和方法。

文件操作示例

创建文件：

Set file = fso.CreateTextFile("C:\test\demo.txt", True)
file.WriteLine("Hello, FSO!")
file.Close

读取文件：

Set file = fso.OpenTextFile("C:\test\demo.txt", 1)
content = file.ReadAll
file.Close
MsgBox content

文件属性控制

通过GetFile方法获取文件对象后，可修改多种属性：

Set fileObj = fso.GetFile("C:\test\demo.txt")
fileObj.Attributes = fileObj.Attributes Or 1  '设置为只读

文件夹与驱动器的管理

文件夹递归遍历

FSO的Folder对象支持深度遍历：

Sub ScanFolder(path)
    Set folder = fso.GetFolder(path)
    For Each subfolder In folder.SubFolders
        ScanFolder(subfolder.Path)
    Next
    For Each file In folder.Files
        WScript.Echo file.Path
    Next
End Sub
ScanFolder "C:\MyDocuments"

驱动器容量监控

通过Drive对象可实时获取存储信息：

Set drive = fso.GetDrive("C:")
freeSpace = FormatNumber(drive.FreeSpace / 1024 / 1024 / 1024, 2)
totalSize = FormatNumber(drive.TotalSize / 1024 / 1024 / 1024, 2)
MsgBox "C盘剩余空间：" & freeSpace & "GB / 总容量：" & totalSize & "GB"

高级技巧与实战应用

二进制文件处理

虽然FSO原生不支持二进制读写,但可通过ADODB.Stream对象配合使用：

Set stream = CreateObject("ADODB.Stream")
stream.Type = 1  'adTypeBinary
stream.Open
stream.LoadFromFile "image.jpg"
binaryData = stream.Read
stream.Close

CSV文件解析器实现

结合Split函数处理结构化数据：

Set file = fso.OpenTextFile("data.csv", 1)
Do Until file.AtEndOfStream
    line = file.ReadLine
    fields = Split(line, ",")
    '处理各字段数据...
Loop
file.Close

日志滚动策略

自动保留最近N天的日志文件：

logFolder = "C:\logs\"
Set folder = fso.GetFolder(logFolder)
For Each file In folder.Files
    If DateDiff("d", file.DateLastModified, Now) > 30 Then
        file.Delete
    End If
Next

安全性与注意事项

1. 权限问题：

   • 脚本执行账户需具有目标路径的读写权限
   • 操作系统目录（如C:\Windows\）可能触发UAC拦截

2. 路径注入风险：

   ' 错误示例：直接拼接用户输入
   userInput = "..\..\secret.txt"
   dangerousPath = "C:\public\" & userInput
   ' 正确做法：使用BuildPath方法
   safePath = fso.BuildPath("C:\public\", fso.GetFileName(userInput))

3. 文件锁定问题：

   • 确保及时关闭TextStream对象
   • 使用FileExists检查前确认文件未被占用

与PowerShell的对比

迁移建议：新项目推荐使用PowerShell，但遗留系统维护仍需掌握FSO。

典型应用场景

1. 自动化部署
   批量修改INI配置文件：

   Set file = fso.OpenTextFile("config.ini", 1)
   content = file.ReadAll
   file.Close
   newContent = Replace(content, "OldValue", "NewValue")
   Set file = fso.CreateTextFile("config.ini", True)
   file.Write newContent
   file.Close

2. 数据清洗
   合并多个文本文件：

   Set output = fso.CreateTextFile("merged.txt", True)
   For Each f In fso.GetFolder("data").Files
       If LCase(fso.GetExtensionName(f.Name)) = "txt" Then
           Set input = f.OpenAsTextStream(1)
           output.Write input.ReadAll
           input.Close
       End If
   Next
   output.Close

3. 系统监控
   定时记录资源使用情况：

   logFile = "C:\monitor.log"
   Set f = fso.OpenTextFile(logFile, 8, True) '8=追加模式
   f.WriteLine Now & " - CPU:" & GetCPUUsage() & "%, Memory:" & GetMemUsage() & "MB"
   f.Close

故障排查与调试

1. 常见错误代码：

   • 70：权限拒绝
   • 53：文件未找到
   • 75：路径/文件访问错误

2. 增强型错误处理：

   On Error Resume Next
   Set file = fso.OpenTextFile("missing.txt", 1)
   If Err.Number <> 0 Then
       MsgBox "错误 " & Err.Number & ": " & Err.Description
       Err.Clear
   End If

尽管现代开发更倾向于使用PowerShell或Python进行文件操作,但Scripting.FileSystemObject在以下场景仍具优势：

• 维护遗留VBScript系统
• 需要快速实现简单文件操作
• 受限环境下的轻量级脚本需求

通过本文的2000余字详解,读者不仅可掌握FSO的核心技术，还能根据实际需求灵活选择文件操作方案，在数字化转型的浪潮中，这些经典工具依然是开发者武器库中不可或缺的利器。

扩展阅读：

1. MSDN官方文档：FileSystemObject Object
2. 《Windows脚本技术权威指南》（Microsoft Press）
3. 微软Learn平台：VBScript基础教程