怎样用vba批量修改一个文件夹中文件的文件名？

xinxin2021

某个文件夹中有多个文件，文件名以阿拉伯数字命名，没有规律，不一定是连续的数字；文件名的后缀名不固定，比如“1”的后缀可能是png，也可能是其他。
请编写一段vba代码，让操作者选择这个文件夹后，对这个文件夹中的文件名进行修改，改名规则是：如果文件名 是“1”，就修改成”第1次会议“，是“3”就修改成”第3次会议”，是”8“就修改成”第8次会议”，以此类推。

修改数字文件名.rar (23.87 KB, 下载次数: 20)

2023-12-29 00:00 上传

点击文件名下载附件

半百

请测试

1. Sub test()
   
2.     Set fdo = Application.FileDialog(msoFileDialogFolderPicker)
   
3.     If fdo.Show = -1 Then
   
4.         pth = fdo.SelectedItems(1) & ""
   
5.     Else
   
6.         MsgBox "您没有选择文件夹！按『确定』键结束"
   
7.         Exit Sub
   
8.     End If
   
9. f = Dir(pth & "*")
   
10. Do While f <> ""
    
11.     a = Split(f, ".")
    
12.     Name pth & f As pth & "第" & a(0) & "次会议." & a(1)
    
13.     f = Dir
    
14. Loop
    
15. End Sub
    

复制代码

ykcbf1100

批量改名。。。

1. Sub ykcbf()           '//2023.12.29
   
2.     Application.ScreenUpdating = False
   
3.     Application.DisplayAlerts = False
   
4.     Set fso = CreateObject("Scripting.FileSystemObject")
   
5.     p = ThisWorkbook.Path & ""
   
6.     p1 = p & "修改后文件名"
   
7.     st = "第##次会议"
   
8.     fso.deletefile p1 & "*.*"
   
9.     For Each f In fso.getfolder(p).Files
   
10.         If InStr(f.Name, ThisWorkbook.Name) = 0 Then
    
11.             fso.copyfile f, p1
    
12.         End If
    
13.     Next
    
14.     For Each f In fso.getfolder(p1).Files
    
15.         fn = fso.GetBaseName(f)
    
16.         fn1 = fso.GetExtensionName(f)
    
17.         f.Name = Replace(st, "##", fn) & "." & fn1
    
18.     Next
    
19.     Application.ScreenUpdating = True
    
20.     MsgBox "OK！"
    
21. End Sub
    
22. 
    

复制代码

ykcbf1100

批量改名，附件供参考。。。

xinxin2021

ykcbf1100 发表于 2023-12-29 13:51
批量改名，附件供参考。。。

能不能自动创建“修改后文件名”目录？

ykcbf1100

xinxin2021 发表于 2023-12-29 15:57
能不能自动创建“修改后文件名”目录？

简单的，改好了。。。

xinxin2021

半百 发表于 2023-12-29 13:04
请测试

测试未能实现，没有任何反应

limonet

关键字：$_.name -replace

limonet

Sub limonet()
    CreateObject("Wscript.shell").Run "powershell get-childitem " & ThisWorkbook.Path & "\limonet -file | rename-item -NewName {$_.name -replace '(\d+)','第$1次会议'}", 0
End Sub

ykcbf1100

limonet 发表于 2024-5-19 18:02
Sub limonet()
    CreateObject("Wscript.shell").Run "powershell get-childitem " & ThisWorkbook.Path ...

技术又上一个台阶了。