求助，怎么将重命名第三级的文件名加上第二级名称作为前缀

学习真好啊

求助，怎么将重命名第三级的文件名加上第二级名称作为前缀


例如 20240901 变成 A-20240901  

ykcbf1100

重命名。。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()  '//2024.9.3
   
2.     Set fso = CreateObject("Scripting.FileSystemObject")
   
3.     p = ThisWorkbook.Path & ""
   
4.     For Each fd In fso.GetFolder(p).SubFolders
   
5.         For Each fd1 In fd.SubFolders
   
6.             If InStr(fd1.Name, "-") = 0 Then
   
7.                 fd1.Name = fd.Name & "-" & fd1.Name
   
8.             End If
   
9.         Next
   
10.     Next
    
11.     MsgBox "OK！"
    
12. End Sub
    
13. 
    

复制代码

limonet

关键字：recurse

limonet

Sub limonet()
    CreateObject("wscript.shell").Run "powershell push-location " & ThisWorkbook.Path _
    & ";dir -dir | %{dir $_}|%{rename-item $_.fullname ($_.parent.name,$_ -join '-')}", 0
End Sub

学习真好啊

ykcbf1100 发表于 2024-9-3 11:25
参与一下。。。

是我想要的效果，谢谢

学习真好啊

limonet 发表于 2024-9-3 12:48
Sub limonet()
    CreateObject("wscript.shell").Run "powershell push-location " & ThisWorkbook.Path ...

，提示这个

limonet

学习真好啊 发表于 2024-9-3 13:55
，提示这个

也许是OFFICE，或许是system。