VBS怎么获取指定目录下的文件列表
VBS通过递归遍历文件夹，利用FileSystemObject获取文件夹与文件集合，支持提取扩展名并转为小写。批处理可轻量统计子目录文件数，结果写入文本文件，便于文件管理。
VBS怎么获取指定目录下的文件列表
先聊个实际场景：你想写个脚本，把某个文件夹下的所有文件路径全捞出来。用VBS的话，核心思路就是递归——文件夹套文件夹，一层层翻到底。下面这段代码就是干这事的，直接复制就能跑，输入目标文件夹路径，它会自动遍历所有子目录，把每个文件的完整路径拼到变量里，最后弹窗显示。
dim FileName,fs,foldername
foldername = InputBox("请输入想要在哪个文件夹查找", "VBS查找文件")
If foldername = "" Then
wscript.quit
End If
Set fs = CreateObject("scripting.filesystemobject")
digui (foldername)'调用递归函数进行查找
msgbox FileName '结果显示
'下面是递归查找函数
Function digui(path)
Set folder = fs.getfolder(path)
Set subfolders = folder.subfolders
Set Files = folder.Files
For Each i In Files
FileName=FileName & i.path & vbNewLine '找到则追加到变量FileName中
Next
For Each j In subfolders
digui (j.path) '递归查找子目录
Next
End Function
如果你只想列目录名，而不是文件名，把上面代码里的Files循环改成SubFolders循环就行——本质上是一回事，改一行的事，不展开了。
vbs获取目录下的文件和文件夹集合
有时候你需要分别处理文件和子文件夹，比如统计每个子目录下的文件数，或者按扩展名分类。下面这段代码演示了怎么同时拿到文件夹集合和文件集合，并且顺便提取了文件的扩展名（转成小写方便比对）。
Dim sFolder, sExt, message
sFolder = "F:ProgrammingApplicationsVBScript"
Dim fs, oFolder, oFiles, oSubFolders
set fs = CreateObject("Scripting.FileSystemObject")
set oFolder = fs.GetFolder(sFolder) '获取文件夹
set oSubFolders = oFolder.SubFolders '获取子目录集合
for each folder in oSubFolders
message = "文件夹：" & folder
MsgBox message
Next
set oFiles = oFolder.Files '获取文件集合
for each file in oFiles
sExt = fs.GetExtensionName(file) '获取文件扩展名
sExt = LCase(sExt) '转换成小写
message = "文件名：" & file.Name & ", 扩展名：" & sExt '获得文件名(含扩展名,不含路径)和扩展名
MsgBox message
Next
补充一点：folder.Name 只返回文件夹的名称，不包含路径。比如完整路径是 F:ProgrammingApplicationsVBScriptdd，那 folder.Name 得到的就是 dd——这个细节在拼接路径时挺有用。
批量统计子目录文件数量
最后还是得提一句，如果你在Windows环境下想快速统计每个子目录下的文件数量，用批处理反而更轻量。下面这段批处理脚本会遍历当前目录下的所有子文件夹，统计每个文件夹里的文件数（递归到子目录），结果写入 dirfiles.txt。
@echo off&setlocal enabledelayedexpansion
cd.>dirfiles.txt
for /d %%a in (*.*) do (
set n=0
for /f %%B in ('dir /a-d /b /s "%%a"') do set /a n+=1
echo %%a !n! >>dirfiles.txt
)
这段脚本的核心是两层 for：外层遍历目录，内层用 dir /a-d /b /s 列出所有文件（不包括文件夹），每列出一个就计数一次。结果格式是“文件夹名 文件数”，非常直观。具体的场景可以自己灵活组合——比如加个排序、或者输出成CSV格式，都是小改动。
VBS脚本实现文件批量处理：一脚本从配置文件读取关键字，遍历文件夹内容，匹配后重命名添加.bak后缀并记日志；另一脚本根据文件路径列表，对衍生文件批量重命名添加.tmp后缀。
VBS调用Shell.Application的ShellExecute方法时需先创建对象。参数包括文件名、附加参数、目录、操作和窗口类型。操作包括编辑、查找、打开、打印、属性、以管理员身份运行六种，窗口类型用0至10数值控制。实战示例以管理员权限运行cmd.exe添加用户。
利用ADODB.Stream对象，VBScript可实现字符串编码转换。核心思路是先将字符串按源编码转为二进制字节流，再按目标编码还原。提供StringToBytes、BytesToString和AlterCharset三个函数，支持GB2312与ISO-8859-1等单字节编码间的转换，适用于旧系统或硬件交互场景。
通过WMI调用Win32_PingStatus实现批量Ping检测，支持循环监测与断线计数。连续失败10次自动发送邮件告警，日志和控制台同步输出。需CScript环境运行，脚本已自动处理切换，适用于多IP持续监控场景。
利用VBS脚本制作循环表白弹窗，点击“否”时依次显示“女友最大”“工资上交”等六个承诺，点击“是”则展现字符爱心与浪漫告白。操作需新建文本文档，粘贴代码后另存为ANSI编码的.vbs文件，双击运行即可。
利用VBS脚本通过InternetExplorer.Application对象操控网页，自动填写账号密码并提交，实现开机自动登录网站。需根据实际页面修改网址、表单及输入框的name属性。将脚本放入系统启动文件夹即可开机自启。
VBS是Windows内置脚本语言，无需安装环境，用记事本即可编写。通过Msgbox和Inputbox函数实现弹窗输出与交互。编写时需注意：文件后缀为.vbs，符号使用英文半角，编码格式改为ANSI，否则中文可能乱码。
VBS脚本基础语法涵盖变量定义、输入输出、判断与循环语句。变量可用“dim”声明，支持自动类型推断；输入输出分别通过inputbox和msgbox实现；判断语句以if...then...else...endif结构为主；循环包括do-loop（支持until、while条件及exitdo控制）和for-next结构。
使用VBS脚本可收集域内远程或本地计算机的软件及Windows版本信息，结果保存为以计算机名命名的txt文件，支持网络路径或脚本目录。脚本内置过滤规则，自动剔除补丁包、Office组件及NVIDIA、Intel驱动等系统组件，兼容32位和64位系统。
VBS脚本在64位系统中因默认调用64位WScript.exe导致32位ActiveX组件无法创建，出现800A01AD错误。可通过修改注册表将解释器切换为32位版本，或直接更改脚本打开方式为SysWOW64下的wscript.exe解决。若在ASP环境中，可重新注册ADODB.Stream组件或启用IIS应用程序池的32位模式。
火山引擎是字节跳动旗下企业级云与AI服务平台。聚焦大模型核心能力，依托字节自研豆包多模态大模型，凭借火山方舟一站式平台，提供模型精调、推理部署、智能应用搭建等全链路服务，结合高性能AI算力，助力各行业快速落地大模型数字化与智能化应用。
