如何用递归方法为多级文件和文件夹重命名

limonet

关键字：-is [System.IO.DirectoryInfo]

limonet

Sub limonet()
    CreateObject("wscript.shell").Run "powershell push-location " & ThisWorkbook.Path _
    & ";dir -recurse -include 1-* | % { if ((Get-Item $_) -is [System.IO.DirectoryInfo])" _
    & "{Ren $_ ($_.name -replace '1-','第一批次-')} else {Ren $_ (($_.name -replace '1-','第一批次-')+$_.Extension)}}", 0
End Sub

limonet

简化一下：dir -recurse -include 1-* | % { Ren $_ (($_.name -replace '1-','第一批次-')+$_.Extension)}

ykcbf1100

练个手
遍历子文件夹，对指定类型文件夹改名，对指定类型文件改名

ykcbf1100

遍历文件夹，文件夹和文件改名

1. Sub ykcbf()   '//2024.6.4   文件和文件夹改名
   
2.    
   
3.     Set fso = CreateObject("scripting.filesystemobject")
   
4.     Application.ScreenUpdating = False
   
5.     p = ThisWorkbook.Path & ""
   
6.     b = [{"1-", "第一批次-"}]
   
7.     For Each f In fso.GetFolder(p).Files
   
8.         If InStr(f.Name, "1-") Then
   
9.             f.Name = Replace(f.Name, b(1), b(2))
   
10.         End If
    
11.     Next f
    
12.     Set ff = fso.GetFolder(p)
    
13.     getfd ff
    
14.     Application.ScreenUpdating = True
    
15.     MsgBox "OK！"
    
16. End Sub
    
17. 
    
18. Sub getfd(ff)
    
19.     b = [{"1-", "第一批次-"}]
    
20.     For Each fd In ff.SubFolders
    
21.         For Each f In fd.Files
    
22.             If InStr(f.Name, "1-") Then
    
23.                 f.Name = Replace(f.Name, b(1), b(2))
    
24.             End If
    
25.         Next
    
26.         If InStr(1, fd.Name, "1-") > 0 Then
    
27.             fd.Name = Replace(fd.Name, b(1), b(2))
    
28.         End If
    
29.         getfd fd
    
30.     Next fd
    
31. End Sub
    
32. 
    

复制代码