【已解决】按图片尺寸分类图片（30元）

李浩123

例如文件夹1--
                   图片1.jpg（尺寸800*800）
                   图片2.jpg（尺寸800*800）
                   图片3.jpg（尺寸750*1000）
                   图片4.jpg（尺寸800*1200）

按图片尺寸分类图片
效果
文件夹1--
             800*800（文件夹）---
                               图片1.jpg（尺寸800*800）
                               图片2.jpg（尺寸800*800）
              750*1000（文件夹）---
                               图片3.jpg（尺寸750*1000）
              800*1200（文件夹）---
                               图片4jpg（尺寸800*1200）

谢谢老师

李浩123

回复 2# zaqmlp


    谢谢，问题解决了 已付款请查收，单号：2022031422001432711411648247

zaqmlp

<# :
cls&echo off&cd /d "%~dp0"
powershell -NoProfile -ExecutionPolicy bypass "[IO.File]::ReadAllText(\"%~f0\",[Text.Encoding]::GetEncoding('GB2312'))|Invoke-Expression"
pause
exit
#>
Add-Type -AssemblyName 'System.Drawing';
$files=@(dir -literal "."|?{(@(".jpg",".jpeg") -contains $_.Extension) -and ($_ -is [System.IO.FileInfo])});
for($i=0;$i -lt $files.length;$i++){
    try{
        $img=[System.Drawing.Image]::FromFile($files[$i].FullName);
        $newfolder="{0}x{1}" -f $img.Width,$img.Height;
        if(-not (test-path -literal $newfolder)){[void][IO.Directory]::CreateDirectory($newfolder);}
        $img.Dispose();
        $newfile=$newfolder+'\'+$files[$i].Name;
        write-host ($files[$i].Name+' --> '+$newfolder);
        move-item -literal $files[$i].FullName $newfile -force -ErrorAction SilentlyContinue;
    }catch{}
}
复制代码