如何编写 VBA 代码来重命名根文件夹下的所有文件夹？

Question

我对 VBA 非常陌生，并且一直在搞乱一些工作代码。本质上，我有一个文件夹，其中包含 1000 多个不同名称的文件夹——我需要重命名每个文件夹。我有一个 Excel 表，其中设置了原始文件路径、旧文件夹名称和所需文件夹名称。我发现此代码适用于父文件夹，但不适用于其中的文件夹：

Sub rename_folder()
Dim old_name, new_name As String
For i = 2 To Sheets(1).Range("a1").End(xlDown).Row
new_name = Left(Sheets(1).Cells(i, 1).Value, Len(Sheets(1).Cells(i, 1).Value) - Len(Sheets(1).Cells(i, 2).Value))
new_name = new_name & Sheets(1).Cells(i, 3).Value
old_name = Sheets(1).Cells(i, 1).Value
Name old_name As new_name
Next i
End Sub 

如何获取它以便此代码重命名父文件夹中的所有文件夹？任何帮助将非常感激！谢谢。

Answer 1

有两种方法可以解决这个问题。第一个（也是慢得多）是用旧名称打开每个文件，用新名称另存为，然后移动到下一个。

我会推荐脚本风格的方法，使用文件系统对象，您可以在循环中移动文件（重命名它们）。

假设新旧文件名与某个父文件夹具有相对路径：

Dim fso As New FileSystemObject, ParentFolder as string
ParentFolder = "C:\Users\Me\ThisProject\"

For i = 2 To Sheets(1).Range("a1").End(xlDown).Row
    new_name = Left(Sheets(1).Cells(i, 1).Value, Len(Sheets(1).Cells(i, 1).Value) - Len(Sheets(1).Cells(i, 2).Value))
    new_name = new_name & Sheets(1).Cells(i, 3).Value
    old_name = Sheets(1).Cells(i, 1).Value

    'This will move (rename) the old file to the new one
    fso.MoveFile (ParentFolder & old_name), (ParentFolder & new_name)
Next i