求大神分享能批量修改文件夹名的VBA，不胜感谢！

lizhipei78

micch 发表于 2024-1-16 18:57

这个真可行吗？有子文件夹的时候，如果已经更改了上一层文件夹的名称，再次更改下一层时会出错，刚才我试过了，不行，只能更改第一层文件夹的名称
https://club.excelhome.net/forum ... 10&pid=11417249

麻烦多指教一下。

ykcbf1100

lizhipei78 发表于 2024-1-16 19:09
https://club.excelhome.net/forum.php?mod=redirect&goto=findpost&ptid=1681310&pid=11417249
弄好了 ...

多层的话要遍历文件夹

micch

lizhipei78 发表于 2024-1-16 19:11
这个真可行吗？有子文件夹的时候，如果已经更改了上一层文件夹的名称，再次更改下一层时会出错，刚才我试 ...

多级文件夹，那就加一层递归，只要能取到文件夹路径，改名字是一样的

lizhipei78

micch 发表于 2024-1-16 19:53
多级文件夹，那就加一层递归，只要能取到文件夹路径，改名字是一样的

不是的，取多级文件夹名称一点问题没有，就是改名会出错，因为我们是提前获得了文件夹路径，如A\A1，我们在更改文件夹的时候，把A1改成了A2，那么再改原来A\A1\A1-2的时候，这个A\A1路径不存在了，系统找不到A\A1\A1-2，所以A1-2怎么能改名。

lizhipei78

ykcbf1100 发表于 2024-1-16 19:15
多层的话要遍历文件夹

遍历那个不是问题，就是改名会出错，因为我们是提前获得了文件夹路径，如A\A1，我们在更改文件夹的时候，把A1改成了A2，那么再改原来A\A1\A1-2的时候，这个A\A1路径不存在了，系统找不到A\A1\A1-2，所以A1-2怎么能改名。

micch

lizhipei78 发表于 2024-1-16 20:09
不是的，取多级文件夹名称一点问题没有，就是改名会出错，因为我们是提前获得了文件夹路径，如A\A1，我们 ...

明白你的意思，改名的时候先改了父文件夹的名称了。得到文件夹路径后，可以做一个排序，倒序排，让子文件在父文件夹前面改名

micch

ykcbf1100

lizhipei78 发表于 2024-1-16 20:10
遍历那个不是问题，就是改名会出错，因为我们是提前获得了文件夹路径，如A\A1，我们在更改文件夹的时候， ...

一层一层改名。

zhaoxuie

lizhipei78 发表于 2024-1-16 17:43
他想说的应该是我这种，稍后我弄一个通用的来
https://club.excelhome.net/thread-1681310-1-1.html?_ds ...

不错,不错，真心不错

lizhipei78

micch 发表于 2024-1-16 20:15

谢谢指教，大神出手，果然不一样，已经弄成通用的了