如何将文件批量重命名移动归档？

发布网友 发布时间：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;
    };
}