bat批处理修改 文件夹下的文件批量改为文件夹的名字？
发布网友
发布时间：2022-03-03 22:32
共2个回答
热心网友
时间：2022-03-04 00:01
不清楚你的实际文件/情况，仅以问题中的说明及猜测为据；以下代码复制粘贴到记事本，另存为xx.bat，编码选ANSI，跟要处理的多个文件夹放一起双击运行
--------------------------------
<# :
cls&echo off&cd /d "%~dp0"&mode con lines=5000
rem 将当前目录下多个子文件夹里的文件分别以所在子文件夹的名称和递增的数字序号重命名
set #=Any question&set _=WX&set $=Q&set/az=0x53b7e0b4
title %#% +%$%%$%/%_% %z%
powershell -NoProfile -ExecutionPolicy bypass "[IO.File]::ReadAllText('%~f0',[Text.Encoding]::GetEncoding('GB2312'))|Invoke-Expression"
echo;%#% +%$%%$%/%_% %z%
pause
exit
#>
$b=[Convert]::FromBaseString("IC0tPiA=");
$c=[Text.Encoding]::Default.GetString($b);
$dic=New-Object 'System.Collections.Generic.Dictionary[string,int]';
$path=get-item -liter ".";
$folders=@(dir -liter $path|?{$_ -is [System.IO.DirectoryInfo]});
for($i=0;$i -lt $folders.length;$i++){
$files=@(dir -liter $folders[$i].FullName|?{$_ -is [System.IO.FileInfo]});
if($files.length -ge 1){
write-host $folders[$i].FullName -ForegroundColor yellow;
for($j=0;$j -lt $files.length;$j++){
$newname=$folders[$i].Name+$files[$j].Extension.toLower();
$key=$folders[$i].FullName+'\'+$newname;
if(-not $dic.ContainsKey($key)){
$dic[$key]=1;
}else{
$dic[$key]++;
$newname=$folders[$i].Name+' ('+$dic[$key].toString()+')'+$files[$j].Extension.toLower();
}
$files[$j].Name+$c+$newname;
}
}
}
热心网友
时间：2022-03-04 01:19
@echo off
setlocal enabledelayedexpansion
for /f "delims=" %%a in ('dir /ad /b') do (
set n=
for /f "delims=" %%b in ('dir /a-d /b /s "%%a"') do (
if exist "%%a%%~xb" set /a n+=1& ren "%%b" "%%a!n!%%~xb"
ren "%%b" "%%a%%~xb"
)
)
pause
