改变文件夹名称的问题

dfshm · 发表于 2024-7-11 14:20

本帖最后由 dfshm 于 2024-7-11 15:54 编辑

附件

改变文件夹名称.rar (5.89 KB, 下载次数: 6)
谢谢老师！

半百 · 发表于 2024-7-11 15:03

？？？

ykcbf1100 · 发表于 2024-7-11 15:05

参与一下。。。

ykcbf1100 · 发表于 2024-7-11 15:06

子文件夹改名

Sub ykcbf() '//2024.7.11 子文件夹改名
Set fso = CreateObject("scripting.filesystemobject")
Application.ScreenUpdating = False
p = ThisWorkbook.Path & ""
On Error Resume Next
For Each fd In fso.GetFolder(p).SubFolders
For Each fd1 In fd.SubFolders
fd1.Name = fd.Name
Next
Next
Application.ScreenUpdating = True
MsgBox "OK！"
End Sub

复制代码

limonet · 发表于 2024-7-11 17:42

关键字：-match

limonet · 发表于 2024-7-11 17:43

Sub limonet()
CreateObject("wscript.shell").Run "powershell push-location " & ThisWorkbook.Path & ";dir -dir -Recurse " _
& "| %{if($_.parent -match '\d+'){rename-item $_.fullname (($_.fullname -replace '\\\d$','')+'\'+$_.parent)}}", 0
End Sub

		自动登录	找回密码
密码			免费注册

[已解决] 改变文件夹名称的问题

评分

评分

评分

评分