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

李浩123 · 发表于 2022-3-13 22:53:46

本帖最后由李浩123 于 2022-3-14 08:44 编辑

例如文件夹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）

谢谢老师

zaqmlp · 发表于 2022-3-13 23:04:26

<# :
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{}
}

复制代码

李浩123 · 发表于 2022-3-14 00:36:16

回复 2# zaqmlp

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

		自动登录	找回密码
密码			注册

[新手上路]批处理新手入门导读	[视频教程]批处理基础视频教程	[视频教程]VBS基础视频教程	[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动	[批处理精品]CMD命令50条不能说的秘密	[在线下载]第三方命令行工具	[在线帮助]VBScript / JScript 在线参考

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

浏览过的版块