你是不是经常遇到这样的场景？电脑里散落着几百个txt文档需要批量改名，或者每月都要手动整理十几个Excel表格。每次都要重复点击鼠标，手都快抽筋了…这时候要是能有个机器人帮你干活该多好？今天要说的这个”文件管家”——Scripting.FileSystemObject（简称FSO），就是专门解决这类痛点的神器。
咱们先来认识下这位”文件管家”。FSO本质上是个藏在Windows系统里的工具包，它能帮你自动完成创建文件、读写数据、复制删除这些基础操作。举个栗子，假设你要给200个客户各建一个档案文件夹，用FSO写几行代码就能搞定，完全不用自己一个个新建。
第一步先召唤出这位管家 在VBScript里，咱们用这行咒语就能召唤它： Set fso = CreateObject(“Scripting.FileSystemObject”) 这就相当于给你的程序装上了机械手臂，接下来就能指挥它干活了。注意这里用的是CreateObject而不是New，这点和普通对象创建不太一样。
常用工具清单 管家身上带了几件趁手兵器： 1. CreateTextFile – 凭空变出个新文件，就像在桌面右键新建记事本 2. OpenTextFile – 打开已有文件准备读写，记得要选对模式（读、写、追加） 3. FileExists – 先检查文件是否存在，避免重复创建闹乌龙 4. CopyFile – 文件复印机，还能顺带改名 5. DeleteFile – 垃圾清理小能手，用的时候可别手抖
比如说要给所有.txt文件备份，可以这么玩： vbscript fso.CopyFile “*.txt”, “D:\backup\” 是不是比手动复制粘贴爽多了？
读写文件有讲究 处理文本文件时，很多人会卡在这几个问题上： – 为什么用WriteLine写完内容文件还是空的？—— 因为忘记调用Close方法了！ – 中文字符怎么变成乱码了？—— 创建文件时要指定编码格式，比如： vbscript Set file = fso.CreateTextFile(“日记.txt”, True, True) ‘第二个True表示Unicode编码 – 怎么追加内容而不是覆盖？—— 打开文件时用8表示追加模式： vbscript Set file = fso.OpenTextFile(“日志.log”, 8, True)
新手常踩的坑 上周有个朋友问我：”为啥我的程序在别人电脑上跑不起来？” 一查发现是目标电脑没开FSO组件支持。这种情况可以加个错误处理： vbscript On Error Resume Next Set fso = CreateObject(“Scripting.FileSystemObject”) If Err.Number <> 0 Then MsgBox “请先启用FSO组件！” WScript.Quit End If 还有要注意文件路径里的斜杠方向，VBScript认的是反斜杠”\”，用成正斜杠”/”就会报错。
实战案例：自动整理下载文件夹 假设下载目录总是乱糟糟的，咱们写个脚本每天自动分类： “`vbscript Set fso = CreateObject(“Scripting.FileSystemObject”) downloadPath = “C:\Users\你的名字\Downloads\”
For Each file In fso.GetFolder(downloadPath).Files ext = fso.GetExtensionName(file) ‘获取文件后缀 targetFolder = downloadPath & UCase(ext) & “文件”
If Not fso.FolderExists(targetFolder) Then fso.CreateFolder(targetFolder) End If fso.MoveFile file.Path, targetFolder & “\”Next “` 这个脚本会按文件类型创建子文件夹，比如PDF文件都归到”PDF文件”目录。运行前记得先备份，防止误操作哦。
现在你应该明白，FSO就像给VBScript装上了文件管理的外挂。虽然现在Python这类语言更流行，但在Windows系统自动化领域，这个老将依然能打。下次遇到重复性文件操作时，不妨试试让代码代劳——毕竟，咱们的双手应该用来创造，而不是重复劳动对吧？
免责声明：网所有文字、图片、视频、音频等资料均来自互联网，不代表本站赞同其观点，内容仅提供用户参考，若因此产生任何纠纷，本站概不负责，如有侵权联系本站删除！邮箱:207985384@qq.com https://www.ainiseo.com/hosting/37079.html
