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

【已解决】按图片尺寸分类图片(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)

谢谢老师

回复 2# zaqmlp


    谢谢,问题解决了 已付款请查收,单号:2022031422001432711411648247

TOP

  1. <# :
  2. cls&echo off&cd /d "%~dp0"
  3. powershell -NoProfile -ExecutionPolicy bypass "[IO.File]::ReadAllText(\"%~f0\",[Text.Encoding]::GetEncoding('GB2312'))|Invoke-Expression"
  4. pause
  5. exit
  6. #>
  7. Add-Type -AssemblyName 'System.Drawing';
  8. $files=@(dir -literal "."|?{(@(".jpg",".jpeg") -contains $_.Extension) -and ($_ -is [System.IO.FileInfo])});
  9. for($i=0;$i -lt $files.length;$i++){
  10.     try{
  11.         $img=[System.Drawing.Image]::FromFile($files[$i].FullName);
  12.         $newfolder="{0}x{1}" -f $img.Width,$img.Height;
  13.         if(-not (test-path -literal $newfolder)){[void][IO.Directory]::CreateDirectory($newfolder);}
  14.         $img.Dispose();
  15.         $newfile=$newfolder+'\'+$files[$i].Name;
  16.         write-host ($files[$i].Name+' --> '+$newfolder);
  17.         move-item -literal $files[$i].FullName $newfile -force -ErrorAction SilentlyContinue;
  18.     }catch{}
  19. }
复制代码
提供bat代写,为你省时省力省事,支付宝扫码头像支付
微信: unique2random

TOP

返回列表