如何将文件批量重命名移动归档？
发布网友
发布时间：2022-03-03 10:57
共1个回答
热心网友
时间：2022-03-03 12:27
复制粘贴到记事本，另存为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].trimend('\');
$files=@(dir -liter $path|?{(@('.jpg') -contains $_.Extension) -and ($_ -is [System.IO.FileInfo])});
for($i=0;$i -lt $files.length;$i++){
$m=[regex]::match(($files[$i].BaseName -replace '-1$',''), '^(.+)-([^-]+)$');
if($m.Success){
$newfolder=$m.groups[1].value.trim();
$newfile=$newfolder+'\'+$m.groups[2].value.trim()+$files[$i].Extension;
$newpath=$path+'\'+$newfile;
if(-not (test-path -liter $newfolder)){[void](md $newfolder)};
write-host ($files[$i].Name+' --> '+$newfile);
#mv -liter $files[$i].Name $newpath;
};
}
