求大神分享能批量修改文件夹名的VBA，不胜感谢！

zhaoxuie

求大神分享能批量修改文件夹名的VBA，不胜感谢！

ykcbf1100

没有附件，给了你代码，也不一定对你合适。

micch

1. Sub RenameFolders()
   
2.     Dim Folder As Folder
   
3.     Dim i As Integer
   
4.     '设置要修改的文件夹路径
   
5.     Set Folder = Folders("C:\Users\UserName\Desktop\Test")
   
6.     '循环遍历文件夹中的所有子文件夹
   
7.     For Each Folder In Folder.Subfolders
   
8.         '设置新的文件夹名称，这里以数字递增的方式进行命名
   
9.         i = i + 1
   
10.         Folder.Name = "Folder" & i
    
11.     Next
    
12. End Sub

复制代码

红军2023

1. Sub BatchRenameFiles()
   
2.     ' 声明变量
   
3.     Dim folderPath As String
   
4.     Dim folder As Object
   
5.     Dim files As Object
   
6.    Dim i As Long
   
7.     Dim fileName As String
   
8. 
   
9.     ' 设定要修改的文件夹路径
   
10.     folderPath = "C:\Users\Username\Desktop\OldFolder"
    
11. 
    
12.     ' Set the folder
    
13.     Set folder = CreateObject("Scripting.FileSystemObject").GetFolder(folderPath)
    
14. 
    
15.     ' Loop through the files in the folder
    
16.     For Each files In folder.Files
    
17.         ' 获取文件的原始名称
    
18.         fileName = Mid(files.Name, InStrRev(files.Name, ".") + 1)
    
19. 
    
20.         ' 修改文件名
    
21.         files.Name = fileName & "NewFileName.txt"
    
22.     Next
    
23. 
    
24.     ' 清空文件夹
    
25.     folder.Delete
    
26. End Sub
    

复制代码

zhaoxuie

ykcbf1100 发表于 2024-1-16 10:51
没有附件，给了你代码，也不一定对你合适。

将新建文件夹下的文件夹1、2、3、4、5……，批量修改为”新建文件夹1、新建文件夹2、新建文件夹3、新建文件夹4、新建文件夹5……

zhaoxuie

micch 发表于 2024-1-16 11:29

将新建文件夹下的文件夹1、2、3、4、5……，批量修改为”新建文件夹1、新建文件夹2、新建文件夹3、新建文件夹4、新建文件夹5……

zhaoxuie

红军2023 发表于 2024-1-16 11:53

将新建文件夹下的文件夹1、2、3、4、5……，批量修改为”新建文件夹1、新建文件夹2、新建文件夹3、新建文件夹4、新建文件夹5……

liulang0808

https://club.excelhome.net/threa ... tml?_dsign=73cffde5
供参考

ykcbf1100

zhaoxuie 发表于 2024-1-16 15:21
将新建文件夹下的文件夹1、2、3、4、5……，批量修改为”新建文件夹1、新建文件夹2、新建文件夹3、新建文 ...

参与一下。。。

1. Sub ykcbf()   '//2024.1.16
   
2.     Dim fld As New Collection
   
3.     p = ThisWorkbook.Path & ""
   
4.     Set fso = CreateObject("Scripting.FileSystemObject")
   
5.     For Each f In fso.GetFolder(p).SubFolders
   
6.         fld.Add Array(f.Path, fso.GetBaseName(f))
   
7.     Next
   
8.     For Each fd In fld
   
9.         p1 = p & "新建文件夹" & fd(1) & ""
   
10.         Name fd(0) & "" As p1
    
11.     Next
    
12.     MsgBox "OK！"
    
13. End Sub
    

复制代码

ykcbf1100

zhaoxuie 发表于 2024-1-16 15:21
将新建文件夹下的文件夹1、2、3、4、5……，批量修改为”新建文件夹1、新建文件夹2、新建文件夹3、新建文 ...

附件供参考。。。