求高手帮助，如何批量修改让每个文件和它所在的文件夹同名

mmwwdd

hf1971

求助老师，文件大多，一个个改，改不过来。

mmwwdd

用totalcommander很方便

hf1971

mmwwdd 发表于 2023-2-20 17:17

Sub shishi()
Set FSO对象 = CreateObject("Scripting.FileSystemObject")
Set 文件夹 = FSO对象.GetFolder("G:/求助附件")
Set 子文件夹集合 = 文件夹.SubFolders
For Each 子文件夹 In 子文件夹集合
    'Debug.Print 子文件夹.Name
   Set 当前文件夹 = FSO对象.GetFolder("G:/求助附件/" & 子文件夹.Name)
    For Each i In 当前文件夹.Files
        'Debug.Print i
        j = j + 1     '如果每个文件夹只有一个文件，这里省略
         '如果每个文件夹只有一个文件，& "-" & j 省略
         i.Name = 子文件夹.Name & "-" & Format(j, "000") & "." & FSO对象.GetExtensionName(i)
    Next
    j = 0     '如果每个文件夹只有一个文件，这里省略
Next
End Sub

网上找到一个改文件名的代码，拿来分享。

mmwwdd

hf1971 发表于 2023-2-21 10:37
谢谢了，试了一下这个软件，只是文件夹太多，一个个来还是效率不太高。

不会吧,你设置一次,就可以点文件夹就行了,很快呀

wanghan519

批量重命名pwsh真的方便

1. dir 0095* -Recurse | ? {$_.Name -match '副本'} | Rename-Item -NewName {if($_.Name -match '.*\d+ - .*(\d+).*'){$n=([string](1+$Matches[1])).PadLeft(3,'0');$_.Name -replace '\d+ - [^\.]*',$n}else{$_.Name -replace '1 - [^\.]*','2'}}

复制代码

大概意思是：递归的列出0095开头的文件夹，筛选所有含‘副本’的文件，改名，如果副本后面找不到数字，就是002，否则用副本后面的数字加1，在左边以0填充三位，替换原文件名最后三位数字。