c# 路径下的最近文件夹_批量重命名文件/文件夹

当面需要对文件/文件夹修改成特定的名称，手工输入只方便处理个位数的文件，一旦超过5个文件/文件夹需要修改名称，使用程序肯定是更简便的方法

一、批量重命名文件名称

1.得到指定文件夹下的所有文件名，在Excel中用“&”连接文件夹路径得到完整路径，推荐这篇这边文章：批量提取文件名称

2.输入修改后的文件名

3.批量修改

代码如下：

Sub Rename()

Dim i As Long

For i = 2 To Range("a65536").End(3).Row

oldName = Range("a" & i).Text

newName = Range("b" & i).Text

Name oldName As newName

Next

MsgBox "已完成文件重命名。"

End Sub

二、批量重命名文件夹名称

1.得到指定文件夹下的所有文件夹名称

代码如下：

Sub 提取指定文件夹内文件夹名字()

Dim Fso, Fld

Dim Arr(1 To 999), k%

Set Fso = CreateObject("Scripting.FileSystemObject")

Set Fld = Fso.GetFolder(CreateObject("Shell.Application").BrowseForFolder(0, "请选择文件夹", 0, "").Self.Path & "")

For Each fd In Fld.SubFolders

k = k + 1

Arr(k) = fd.Name

Next

[a2].Resize(k) = Application.Transpose(Arr)

End Sub

2.输入修改后的文件名

3.批量修改

代码如下：

Sub Rename()

For i = 1 To Range("a65536").End(3).Row

Shell "c:windowssystem32cmd.exe /c ren D:示例" & Range("a" & i) & " " & Range("b" & i) & ""

Next

End Sub

注意：标注粗体的地址需要对应更换

重命名文件夹方法二：

1.在Excel文件中添加一列，输入“ren”，利用公式给文件名添加引号

2.新建txt文件，复制Excel除开第一行标题的数据，粘贴到txt文件内，保存后修改txt文件后缀为bat，双击运行即可

关注微信公众号，领取更多干货

Excel/Word/Outlook/PDF免费助手​www.liangxin-vip.com