标题: 【已解决】按图片尺寸分类图片(30元) [打印本页]
作者: 李浩123 时间: 2022-3-13 22:53 标题: 【已解决】按图片尺寸分类图片(30元)
本帖最后由 李浩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
- <# :
- 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
回复 2# zaqmlp
谢谢,问题解决了 已付款请查收,单号:2022031422001432711411648247
欢迎光临 批处理之家 (http://bathome.net./) |
Powered by Discuz! 7.2 |