怎么给文件夹批量改名每个不一样？实测4种方法

最近好多朋友私信问我，怎么给文件夹批量改名每个不一样？说实话，这个问题我以前也头疼过。

事情是这样的，上周我帮朋友整理公司资料，几百个文件夹都要改成"产品手册-01""产品手册-02"这种带编号的名字。刚开始我想着手动一个个改算了，结果改了不到二十个就崩溃了，太坑了！而且手动重命名只能改成相同的名字，想要每个都不一样，那工作量简直不敢想。

后来我研究了好几种办法，终于搞明白了。今天就把我实测过的方法分享给大家，希望能帮你们少走弯路。

百家号头图先说第一种，也是我用得最顺手的——汇帮批量重命名软件。

这个软件是我在一个技术交流群里看到的，当时将信将疑地试了一下，没想到真的挺好用。

操作步骤我一步步说清楚：

第一步，去官网把这个软件下载安装好。安装的时候注意一下，别勾选那些乱七八糟的捆绑软件，我就是当时没注意，差点被装了个全家桶。

第二步，打开软件，在功能列表里找到【文件夹重命名】这个选项。注意，它区分文件夹和文件，别选错了。

第三步，点击页面上的【添加文件夹】按钮，然后选择你要处理的那些文件夹所在的父目录。对，不用一个个选，直接把上一级文件夹选进去就行。

第四步，软件会自动扫描出所有子文件夹，你只需要勾选那些需要改名的文件夹就行。这一步很方便，想改哪个勾哪个，不想动的就留着。

第五步，这一步是关键！在右侧的设置区域找到【导入Excel数据】这个功能，然后：

先点击【导入模板】，软件会自动生成一个Excel格式的模板文件。
打开这个模板，在Excel的第一列填写每一个文件夹想要改成的新名字，比如"产品手册-01"、"产品手册-02"，想怎么命名就怎么命名，每个都不一样的那种。
填好之后，保存成CSV或者Excel格式都行。

我当时在这个Excel里一口气填了三百多个名字，填了大概半个小时吧，但总比一个个改文件夹快多了。

第六步，点击那个大大的【开始执行】按钮。软件就会自动按照你Excel列表里的内容，一个一个地把文件夹重命名。

第七步，完成后有个【预览】功能，可以先检查一下改得对不对。如果发现有问题，还有撤销操作可以补救。

接下来是第二种方法——VBA程序批量修改，这个方法稍微有点门槛，但胜在免费不用装软件。

适合稍微懂点代码的朋友，如果你完全没接触过编程，可能看我会觉得有点懵。

具体操作是这样的：

打开Excel表格，点击顶部菜单栏的【开发工具】选项卡。

- 如果你的Excel里没看到这个选项卡，需要去设置里把它调出来。怎么调？文件→选项→自定义功能区→勾选开发工具就行。

点击【Visual Basic】，打开VBA编辑器窗口。然后点击【插入】→【模块】，会出现一个空白的代码编辑窗口。

- 在这个窗口里，把我下面这段代码输进去：

Sub ChangeFilesName()
Dim i, myPath, Na, Na2, Str1, fs, fo, fi
On Error Resume Next '忽略错误
myPath = "D:\办公文件\待修改文件名" '替换成你的文件夹路径
Na2 = "项目文件-" '基础名称
Set fs = CreateObject("Scripting.FileSystemObject")
Set fo = fs.GetFolder(myPath)
i = 0
For Each fi In fo.Files
i = i + 1
Na = fi.Name
Str1 = Right(Na, Len(Na) - InStrRev(Na, ".")) '提取后缀名
fi.Name = Na2 & i & Str1 '新名称=基础名+序号+后缀
Next
End Sub