VBS遍历文件或文件夹路径输入文件的所有绝对路径(附源码)
作者:OpenWorld
时间:2026-06-29
来源:互联网
浏览:0
VBScript利用FSO对象递归遍历文件夹,获取所有文件绝对路径并输出至调试窗口,内置计时功能评估性能。代码简洁高效,适用于快速文件清单生成及路径调试。
在日常开发或文件管理中,递归遍历文件夹并获取所有文件的完整路径是一个很常见的需求。VBScript 虽然年头不短,但配合 FSO(FileSystemObject)处理这类任务依然简单高效。下面这个函数就是专门干这件事的——传入一个根目录路径,它会自动递归进入所有子文件夹,并把每个文件的绝对路径打印到调试输出窗口。
Function listFilesPath(filepath)
t1=Timer()
Debug.WriteLine "****现在开始执行计数,用时:"+CStr(t1)
Set fso=CreateObject("scripting.filesystemobject")
Set myfolder=fso.GetFolder(filepath)
If fso.FolderExists(filepath) then
Set subcol=myfolder.SubFolders
Set filescol=myfolder.Files
For Each file In filescol
Debug.WriteLine filepath+""+file.name
Next
If subcol.count>0 Then
For Each folder In subcol
'Debug.WriteLine filepath+""+folder.Name
listFilesPath(filepath+""+folder.Name)
next
End if
Else
Debug.WriteLine "没有该文件系统"
End if
Set filescol=Nothing
Set subcol=nothing
Set fso=Nothing
t2=Timer()
Debug.WriteLine "****现在完成计数,用时:"+CStr(t2)
Debug.WriteLine "整个操作过程用时:"&CStr(t2-t1)&" 秒"
End function
细看这段代码,几个关键点值得注意:它先检查路径对应的文件夹是否存在,如果存在则遍历当前目录下的文件,然后递归调用自身处理子文件夹。计时功能也内置了,方便评估大规模目录下的性能。实际使用时,只需要在脚本里调用 listFilesPath "C:\YourFolder" 就能看到结果。当然,如果想将路径保存到文件而不是输出到调试窗口,稍加改造即可。

作者最新文章
三星 Galaxy A08 渲染图曝光:Helio G99 芯片与 6000mAh 电池配置解析
2026-09-08 17:14
OPPO Find X10 Pro Max 影像规格详解:三颗2亿像素镜头与全焦段8K视频能力
2026-09-08 16:41
PDF转HTML在线转换器怎么选?转换后网页排版怎么查?
2026-09-04 11:02
AE教程书籍挑选指南:零基础、动效与合成方向实战标准
2026-09-02 13:31
教程书籍使用SAI软件Logo要单独授权吗:商标引用与出版合规要点
2026-09-02 11:50
热门文章
更多
精品专题
更多
Mac软件
更多
WINDOWS
更多
Windows 10
Windows
Windows 10 是一款微软推出的经典操作系统,拥有硬件兼容性与多任务处理能力。它更偏向把系统状态查看和常用调节动作放在一起,适合需要持续观察和微调设备状态的场景。
极度公式
Windows/macOS/Linux
极度公式是一款跨平台专业LaTeX公式识别编辑软件,支持OCR公式识别和多平台编辑。和使用说明,避免使用,享受完整功能与稳定支持。做扫描整理、文字提取和表格转换时,它能把识别后的处理步骤接得更顺,资料录入这类场景会省下不少时间。
















