提取文件夹下相同后缀名的文件到目标文件夹（支持多级文件夹）

谢金龙 · 发表于 2024-8-21 09:17

最近遇到一个新同事的抱怨，在交接工作的过程中，离职同事交接的项目文件存放杂乱无章，文件夹层级多达8级，文件存放的哪里都是，比如他要找后缀.dwg的文件，他想把项目文件整理下，按照文件后缀名把文件整理出来，一个文件夹一个文件夹打开复制操作，搞着搞着就忘记了，到那个文件夹了，然后我就帮他写了这么小代码，希望可以帮到他，在工作中能帮助到别人我就很有成就感。

我也是接触VBA不到一年时间，工作之余一边看书学习，一边在工作中应用，有那里不合理的地方，欢迎大家指正，谢谢！

代码的作用：提取文件夹下相同后缀名的文件到目标文件夹；工程密码：2114

ykcbf1100 · 发表于 2024-8-21 09:31

本帖最后由 ykcbf1100 于 2024-8-21 09:32 编辑

子文件夹可以遍历，所以，是不是8级问题都不大。

源文件夹和目标文件夹建议可以自由选择。

悠扬的旋律 · 发表于 2024-8-21 10:19

试了下Everything应该就行
我也写过从多层里遍历查找文件,移动出来,后面需要还可以移动回去

谢金龙 · 发表于 2024-8-21 10:45

感谢您的建议，我修改了下，想用窗体的，但是还不会用，就只能这样了

		自动登录	找回密码
密码			免费注册

[原创] 提取文件夹下相同后缀名的文件到目标文件夹（支持多级文件夹）