Question

如何批量修改文件夹下子文件夹所有文件，按已有的顺序，把原名删除，重新按上级文件夹命名？

如：文件夹下子文件夹
01 你好
原名：01-01.jpg
01-02.jpg
……
修改为：你好-01.jpg，你好-02.jpg

也有可能是这样子的
01 你好
-~945.jpg
-~946.jpg
-~949.jpg
修改为：
-~945.jpg 改后 你好-01
-~946.jpg 改后 你好-02
-~949.jpg 改后 你好-03

Answer 1

不清楚你的实际文件/情况，仅以问题中的样例/说明为据；以下代码复制粘贴到记事本，另存为xx.bat，编码选ANSI，跟要处理的多个文件夹放一起双击运行
<# :
cls&echo off&mode con lines=3000
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
#>
$codes=@'
using System;
using System.Collections.Generic;
using System.Runtime.InteropServices;
public static class ExpDir
{
[DllImport("Shlwapi.dll", CharSet=CharSet.Unicode)]
public static extern int StrCmpLogicalW(string p1, string p2);
public static string[] Sort(string[] f)
{
Array.Sort(f, StrCmpLogicalW);
return f;
}
}
'@;
Add-Type -TypeDefinition $codes;

[byte[]]$b=@(32,45,45,62,32);
$c=[Text.Encoding]::Default.GetString($b);
$self=get-item -liter $args[0];
$path=$self.Directory.FullName;
$folders=@(dir -liter $path|?{$_ -is [System.IO.DirectoryInfo]});
for($i=0;$i -lt $folders.length;$i++){
write-host $folders[$i].FullName -ForegroundColor yellow;
$files=@(dir -liter $folders[$i].FullName|?{$_ -is [System.IO.FileInfo]}|%{$_.Name});
if($files.length -ge 1){
$arr=[ExpDir]::Sort($files);
for($j=0;$j -lt $arr.count;$j++){
$ext='';
$m=[regex]::match($arr[$j],'\.[^\.]+$');
if($m.Success){$ext=$m.groups[0].value;}
$arr[$j]+$c+$folders[$i].Name+'-'+($j+1).toString().PadLeft(2,'0')+$ext;
}
}
}

追问

你好，执行中显示没有问题，但文件没有变化，是怎么回事

追答

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

追问

你好，bat运行了，但没有执行，文件没有变化，是怎么回事

Answer 2

blukrename，好像这个名字，用这个批量改名字