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

[文件操作] [已解决]求助修改BAT代码,一键删除像素低于1000PX的图片

本帖最后由 zhuan1688 于 2020-4-8 10:08 编辑

注:最终我没用bat,而是使用免费软件:everything,可以直接用:width:>1000 等代码搜索图片大小、像素等。


下面代码是一键删除像素小于1000的图片,但是不能删除子文件夹,我要遍历目录,删除所有子文件夹里像素低于1000的图片,不论几级子目录,请各位大神帮忙修改,无比感激
  1. @echo off&setlocal enabledelayedexpansion
  2. rem 删除当前目录下---下一行所设扩展名--宽度大于下两行所设像素的图片
  3. set "var=*.jpg *.bmp *.jpeg"
  4. set /a w=1000
  5. >tmp.vbs echo Set oImg=CreateObject("WIA.ImageFile")
  6. >>tmp.vbs echo oImg.LoadFile WScript.Arguments(0)
  7. >>tmp.vbs echo ImgInfo=oImg.Width
  8. >>tmp.vbs echo Wscript.Echo int(ImgInfo)
  9. for /f %%a in ('dir /b /a-d !var!') do (
  10. for /f "delims=" %%i in ('cscript //nologo tmp.vbs %%a') do (
  11. set /a width=%%i*1
  12. if !width! lss !w! echo %%a宽度小于!w!,实际宽度为!width!,正在删除...&del %%a /f /q
  13. )
  14. )
  15. del tmp.vbs
  16. pause
  17. exit /b
复制代码

回复 1# zhuan1688


第9行改成这样可以吗:
for /f %%a in ('dir /b /s /a-d !var!') do (
我帮忙写的代码不需要付钱。如果一定要给,请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家,加入VIP会员!】http://bbs.bathome.net/thread-67716-1-1.html

TOP

回复 2# Batcher

谢谢您的帮助,不行,请看图片

TOP

回复 3# zhuan1688

第9、10行这样呢:
for /f "delims=" %%a in ('dir /b /s /a-d !var!') do (
for /f "delims=" %%i in ('cscript //nologo tmp.vbs "%%a"') do (
我帮忙写的代码不需要付钱。如果一定要给,请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家,加入VIP会员!】http://bbs.bathome.net/thread-67716-1-1.html

TOP

返回列表