VBS怎么获取指定目录下的文件列表（vb 读取目录下所有文件）这样也行？

🌐 经济型：买域名、轻量云服务器、用途：游戏网站等《腾讯云》特点：特价机便宜适合初学者用点我优惠购买

🚀 拓展型：买域名、轻量云服务器、用途：游戏网站等《阿里云》特点：中档服务器便宜域名备案事多点我优惠购买

🛡️ 稳定型：买域名、轻量云服务器、用途：游戏网站等《西部数码》特点：比上两家略贵但是稳定性超好事也少点我优惠购买

文章摘要

本文介绍了一段VBScript代码，用于在Windows文件系统中遍历指定文件夹（如“F:ProgrammingApplicationsVBScript”），并提取其中的子目录、文件名及其扩展名。代码使用`Scripting.FileSystemObject`对象，通过获取文件夹的子目录集合和文件集合，循环遍历每个子文件夹和文件。对于每个文件，代码获取文件名和扩展名，并将结果显示在消息框中。该方法可帮助开发者快速处理文件系统操作。

Dim sFolder, sExt, message
sFolder=”F:\Programming\Applications\VBScript”

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