VBS遍历文件或文件夹路径输入文件的所有绝对路径（附源码）
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" 就能看到结果。当然，如果想将路径保存到文件而不是输出到调试窗口，稍加改造即可。
火山引擎是字节跳动旗下企业级云与AI服务平台。聚焦大模型核心能力，依托字节自研豆包多模态大模型，凭借火山方舟一站式平台，提供模型精调、推理部署、智能应用搭建等全链路服务，结合高性能AI算力，助力各行业快速落地大模型数字化与智能化应用。
AirBuddy 3 是面向 macOS 的蓝牙外设增强工具，可集中查看 AirPods、Beats 与苹果设备电量，提供快速连接、播放控制、电量提醒、桌面小组件和多台 Mac 外设接力等功能。
AirServer macOS版可把 Mac 转换为无线投屏接收端，通过 AirPlay 或 Google Cast 接收手机、平板和电脑画面，并支持多设备同时连接、高清镜像及会话录制，适合家庭娱乐、课堂教学、会议演示和应用展示。
Autodesk Maya 是面向影视、电视、动画和游戏行业的专业三维制作软件，集多边形与 NURBS 建模、角色绑定、关键帧和动作捕捉动画、Bifrost 特效模拟、材质开发及 Arnold 渲染于一体，
AirServer Windows版可把电脑变成AirPlay、Google Cast和Miracast无线投屏接收端，适合会议演示、课堂教学及家庭大屏分享。发送设备通常无需另装客户端，并可同时接收和智能排列多个镜像会话。