@echo off & title 正在扫描图片信息稍后将自行关闭！
cd /d %~dp0

if "%1" == "h" goto begin
mshta vbscript:createobject("wscript.shell").run("""%~nx0"" h",0)(window.close)&&exit
:begin

  
set Pic=*.jpg,*.jpeg,*.png,*.bmp,*.gif

(for /f "delims=" %%a in ('dir /a-d/s/b %Pic%') do (
    for /f "tokens=1-4 delims=x" %%b in ('cscript -nologo "%tmp%\GetImgInfo.vbs" "%%~sa"') do (
        echo %%~a-宽：%%~b高：%%~c 
    )
   
))>图片大小.txt
Del %0 /f/a
复制代码