VBA遍历文件夹(子文件夹)最快速的方式

新世界2021

十万文件只需要1.6秒

新世界2021

为什么发代码发不上来,,被百度云拦截

f8b1987

方法确实快，自用还行，发别人的话容易被杀毒软件干掉


AI分析的速度

q3698995

全场景覆盖！VBA文件枚举：长路径+特殊字符+属性过滤+子目录递归—— by q3698995
https://club.excelhome.net/thread-1722724-1-1.html
(出处: ExcelHome技术论坛)

试试我这个


参数支持

已实现
递归子文件夹
文件名后缀名(正向匹配)
文件名后缀名(反向匹配)
属性筛选

待实现功能
文件大小筛选(单参数可多条件)
创建日期筛选(单参数可多条件)
修改日期筛选(单参数可多条件)
根据以上字段排序


排序难点根据眼睛看到的顺序排好序，（也就是说10.xlsx能排在9.xlsx后面，传统的方式会把文件名当成字符串，先比较10中的1比9小，按文件名排先10.xlsx后9.xlsx）

q3698995

AI给的结果，未实际测试

ykcbf1100

新世界2021 发表于 2025-12-10 13:20
为什么发代码发不上来,,被百度云拦截

你的附件啥代码没有啊，等于白说了。
你可以直接把代码贴上来。

新世界2021

ykcbf1100 发表于 2025-12-10 14:50
你的附件啥代码没有啊，等于白说了。
你可以直接把代码贴上来。

在附件里了

dragonthree

: errReturn = objProcess.Create(command, Null, objConfig, intProcessID)，这儿出错

新世界2021

dragonthree 发表于 2025-12-10 18:20
: errReturn = objProcess.Create(command, Null, objConfig, intProcessID)，这儿出错

修改一下代码                is_WPS = InStr(Replace(UCase(Application.Caption), UCase(Application.ActiveWorkbook.Name), ""), "WPS") > 0
            If is_WPS Then X = Shell_WPS(cmdContent, 0) Else FSO.CreateTextFile(tempCmdFile, True).Write cmdContent:  CreateObject("Wscript.Shell").Run tempCmdFile, 0, True
判断如果是WPS再用那个自定义函数,如果是Excel直接运行DOS

morpheus126

新世界2021 发表于 2025-12-10 19:08
修改一下代码                is_WPS = InStr(Replace(UCase(Application.Caption), UCase(Application.A ...

改完之后，一下这句报错，无效调用

FSO.CreateTextFile(tempCmdFile, True).Write cmdContent: