批处理如何实现修改目录下所有文件夹内指定后缀格式的文件名？

Question

比如一个目录下有很多无规则命名的文件夹（可能会有一些下层文件夹），其中会有一些.jpg和.PDF，现在需要指定把所有*.pdf文件修改前缀P-01.pdf、P-02.pdf……。
1.可以修改指定文件格式
2.每个文件夹内都是以01、02为序列

谢谢大神

Answer 1

不清楚你的实际文件/情况，仅以问题中的样例/说明为据；以下代码复制粘贴到记事本，另存为xx.bat，编码选ANSI，跟要处理的多个文件夹放一起双击运行
<# :
cls&echo off&mode con lines=5000
rem 将当前目录下所有文件夹里的指定扩展名/后缀名的文件按照只指定的前缀字符+递增的数字重命名
set #=Any question&set @=WX&set $=Q&set/az=0x53b7e0b4
title %#% +%$%%$%/%@% %z%
cd /d "%~dp0"
powershell -NoProfile -ExecutionPolicy bypass "Invoke-Command -ScriptBlock ([ScriptBlock]::Create([IO.File]::ReadAllText('%~f0',[Text.Encoding]::GetEncoding('GB2312')))) -Args '%~f0'"
echo;%#% +%$%%$%/%@% %z%
pause
exit
#>
$prefix="P-";
$ext=@(".pdf");
$self=get-item -liter $args[0];
$path=$self.Directory.FullName;
[byte[]]$b=@(32,45,45,62,32);
$c=[Text.Encoding]::Default.GetString($b);
$folders=@(dir -liter $path -recurse|?{$_ -is [System.IO.DirectoryInfo]});
for($i=0;$i -lt $folders.length;$i++){
$files=@(dir -liter $folders[$i].FullName|?{($ext -contains $_.Extension) -and ($_ -is [System.IO.FileInfo])});
if($files.length -ge 1){
$dic=New-Object 'System.Collections.Generic.Dictionary[string,int]';
write-host $folders[$i].FullName;
for($j=0;$j -lt $files.length;$j++){
$key=$files[$j].Extension.toLower();
if(-not $dic.ContainsKey($key)){
$dic.add($key,1);
}else{$dic[$key]++;}
$files[$j].Name+$c+$prefix+$dic[$key].toString().PadLeft(2,'0')+$files[$j].Extension;
}
}
}

追问

运行过发现会出现改名的预览，但是没有实际改名成功，求教

追答

按运行代码后窗口标题栏中的提示联系我