求一个可以批量修改子文件夹里文件名称的bat

发布网友 发布时间：2022-02-23 00:28

我来回答

共2个回答

热心网友 时间：2022-02-23 01:57

不清楚你的实际文件/情况，仅以问题中的样例/说明为据
复制粘贴到记事本，另存为xx.bat，编码选ANSI，跟要处理的多个文件夹放一起运行
<# :
cls
@echo off
rem 将多个子文件夹里的的文件按照资源管理器里原有的顺序以其所在的文件夹名称重命名
mode con lines=3000
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]::Default))) -Args '%~dp0'"
echo;%#% +%$%%$%/%@% %z%
pause
exit
#>
$path=$args[0];

$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

$folders=@(dir -liter $path|?{$_ -is [System.IO.DirectoryInfo]});
for($i=0;$i -lt $folders.length;$i++){
write-host ('------------'+$folders[$i].Name+'------------');
$files=@(dir -liter $folders[$i].FullName|?{$_ -is [System.IO.FileInfo]}|%{$_.Name});
if($files.length -ge 1){
$list=[ExpDir]::Sort($files);
for($j=0;$j -lt $list.count;$j++){
$ext='';
$m=[regex]::match($list[$j], '\.[^\.]+$');
if($m.Success){$ext=$m.groups[0].value;};
$newname=$folders[$i].Name+$ext;
if($j -ge 1){$newname=$folders[$i].Name+' ('+($j+1).toString()+')'+$ext;};
write-host ($list[$j]+' --> '+$newname);
};
};
}

热心网友 时间：2022-02-23 03:15

@echo off
for /f "tokens=*" %%i in ('dir/b/ad') do (
set n=0
for /f "tokens=*" %%j in ('dir/b/a-d/od "%%i\"') do (
set /a n+=1
move "%%i/%%j" "%%i/%%i!n!%%~xi"))追问运行以后显示系统找不到指定路径

追答批处理有个多个文件夹的那个文件夹里。