如何将文件夹下的文件名批量重命名

wtujcf123

各位老师，我想将一个文件夹下（包含子文件夹）的所有文件的名称进行重命名，但利用批处理的ren命令，只能修改当前文件下的文件，对子文件夹就不顶用了。
我的设想是原名称提取出一列，然后需要修改后的名称再单独整理成一列（新文件名称与原文件名称的对应关系从另一个文件中寻找，老师无需帮助。）
最后利用vba按纽进行批量修改，希望老师能够帮忙。
附件和需要修改的文件如下。

夏天的风shh4695

用name方法来处理

夏天的风shh4695

Sub 处理文件()
With ThisWorkbook.Sheets(1)
    .[a1] = "原文件名"
    .[b1] = "新文件名"
    .Range("a2:a" & .Cells(Rows.Count, 1).End(xlUp).Row + 1).Clear
End With
dz = ThisWorkbook.Path
遍历 (dz)
End Sub

Sub 遍历(x)
Dim fd1 As Folder, fd2 As Folder, f As File
Set fso = CreateObject("Scripting.FileSystemObject")
Set ws = ThisWorkbook.Sheets(1)
Set fd1 = fso.GetFolder(x)
For Each f In fd1.Files
    If Not f.Name Like "*" & ThisWorkbook.Name & "*" Then
        hh = ws.Cells(Rows.Count, 1).End(xlUp).Row + 1
        ws.Range("a" & hh) = fd1 & "\" & f.Name
        Name ws.Range("a" & hh).Value As ws.Range("a" & hh).Offset(0, 1).Value
    End If
Next f
For Each fd2 In fd1.SubFolders
    遍历 (fd2)
Next fd2
End Sub

wtujcf123

夏天的风shh4695 发表于 2022-1-22 14:43
用name方法来处理

老师，能帮忙写一下吗？

夏天的风shh4695

wtujcf123 发表于 2022-1-22 15:39
老师，能帮忙写一下吗？

代码已写好上传，估计30分钟系统审核通过后你就能看到。
如果觉得好用请赠送一朵鲜花

wtujcf123

夏天的风shh4695 发表于 2022-1-22 15:42
代码已写好上传，估计30分钟系统审核通过后你就能看到。
如果觉得好用请赠送一朵鲜花

谢谢老师

wtujcf123

夏天的风shh4695 发表于 2022-1-22 15:25
Sub 处理文件()
With ThisWorkbook.Sheets(1)
    .[a1] = "原文件名"

老师，显示文运行时错误 。能再帮忙修改一下吗

夏天的风shh4695

wtujcf123 发表于 2022-1-22 19:03
老师，显示文运行时错误 。能再帮忙修改一下吗

先检查两个问题：
1、代码文件工作薄 ，要放在要修改文件名的最上一层文件夹下
2、要修改的文件不要与代码工作薄文件夹同名
如果这两个都注意到了但还是有问题，你就吧出错文件发给我看下。要吧你的出错文件发过来，因为我在我的电脑上测试是没问题的。

lilyhcn1

夏天的风shh4695 发表于 2022-1-22 20:18
先检查两个问题：
1、代码文件工作薄 ，要放在要修改文件名的最上一层文件夹下
2、要修改的文件不要与 ...

送你一个输出文件夹中文件信息的vbs，接下来你自己写bat吧。
_Uploads_2022-01-03_输出文件夹信息.rar (1.49 KB, 下载次数: 52)

2022-1-22 20:31 上传

点击文件名下载附件

wtujcf123

夏天的风shh4695 发表于 2022-1-22 20:18
先检查两个问题：
1、代码文件工作薄 ，要放在要修改文件名的最上一层文件夹下
2、要修改的文件不要与 ...

老师，我就用是您 上传的附件 ，测试的呢，里面的文件我都没有变。
另外，老师是不是弄成两个按纽会好些。
1.是提出文件名
2.修改文件名。

这是出错的地方，请老师再费心了，我今天急着用，谢谢了。