Const testImage = "F:\test\测试\test.jpg"

If cropImage(testImage,"png") Then
   MsgBox testImage & " 符合条件"
Else
   MsgBox testImage & " 已被跳过"
End If

Function cropImage(imageFile,fileType)
   Dim Img,IP,fso
   Dim cropWidth,cropHeight,outFile,FormatID

   saveFile =imageFile
   
   Set Img = CreateObject("WIA.ImageFile")
   Set IP = CreateObject("WIA.ImageProcess")
   Set fso = WScript.CreateObject("Scripting.Filesystemobject")
   
   Img.LoadFile imageFile
   
   cropWidth = Img.Width And 1
   cropHeight =  Img.Height And 1
   
   If cropWidth Or cropHeight Then
      cropImage = 1
        
      IP.Filters.Add IP.FilterInfos("Crop").FilterID
      IP.Filters(1).Properties("Right") = cropWidth
      IP.Filters(1).Properties("Bottom") = cropHeight
      
      Select Case LCase(fileType)
         Case "bmp": FormatID = "{B96B3CAB-0728-11D3-9D7B-0000F81EF32E}"
         Case "png": FormatID = "{B96B3CAF-0728-11D3-9D7B-0000F81EF32E}"
         Case "gif": FormatID = "{B96B3CB0-0728-11D3-9D7B-0000F81EF32E}"
         Case "jpeg","jpg": FormatID = "{B96B3CAE-0728-11D3-9D7B-0000F81EF32E}"
         Case "tiff","tif": FormatID = "{B96B3CB1-0728-11D3-9D7B-0000F81EF32E}"
      End Select
      
        If Len(FormatID)>0 Then
         IP.Filters.Add IP.FilterInfos("Convert").FilterID
         IP.Filters(2).Properties("FormatID").Value = FormatID
           outFile = Replace(imageFile&"*" , fso.GetExtensionName(imageFile)&"*" , fileType)
        End If
        
      Set Img = IP.Apply(Img)
      If imageFile = outFile Then fso.DeleteFile imageFile
      Img.SaveFile outFile
   End If
End Function
复制代码

@Echo Off 
dir *.jpg *.png /a /b /s >> list.txt 
复制代码

@echo off
set "filename=1.jpg"
for /f "tokens=1,3" %%i in ('nconvert.exe -info "%filename%" ^| findstr "Width Height"') do (
    set "%%i=%%j"
)
set /a modW=Width%%2
set /a modH=Height%%2

set "change=0"
if %modW% neq 0 (
    set /a newW=Width-1
    set "change=1"
) else (
    set newW=%Width%
)
if %modH% neq 0 (
    set /a newH=Height-1
    set "change=1"
) else (
    set newH=%Height%
)

if %change% equ 1 (
    nconvert -overwrite -resize %newW% %newH% "%filename%"
)
复制代码

    @echo off
    set "filename=1.jpg"
    for /f "tokens=1,3" %%i in ('nconvert.exe -info "%filename%" ^| findstr "Width Height"') do (
        set "%%i=%%j"
    )
    set /a modW=Width%%2
    set /a modH=Height%%2

    set "change=0"
    if %modW% neq 0 (
        set /a newW=Width-1
        set "change=1"
    ) else (
        set newW=%Width%
    )
    if %modH% neq 0 (
        set /a newH=Height-1
        set "change=1"
    ) else (
        set newH=%Height%
    )

    if %change% equ 1 (
        nconvert -overwrite -crop 0 0 %newW% %newH% "%filename%"
    )
复制代码

    dir *.jpg  *.png  /a /b /s >> list.txt    
    for /f "delims=" %%a in (list.txt) do (
复制代码

        @Echo Off 
    dir *.jpg  *.png  /a /b /s >> list.txt  
复制代码

        @Echo Off 
    for /f "delims=" %%b in (list.txt) do (
    set a=%%b
    more /e +1 list.txt > list.tmp
    del list.txt
    ren list.tmp list.txt
    call 分辨率.bat
)
复制代码

    @Echo Off 
    set "filename=%a%"
    for /f "tokens=1,3" %%i in ('nconvert.exe -info "%filename%" ^| findstr "Width Height"') do (
        set "%%i=%%j"
)
    set /a modW=Width%%2
    set /a modH=Height%%2

    set "change=0"
    if %modW% neq 0 (
        set /a newW=Width-1
        set "change=1"
    ) else (
        set newW=%Width%
    )
    if %modH% neq 0 (
        set /a newH=Height-1
        set "change=1"
    ) else (
        set newH=%Height%
    )

    if %change% equ 1 (
        nconvert -overwrite -crop 0 0 %newW% %newH% "%filename%"
        
    )
    call 2.bat
    pause
复制代码

@echo off
setlocal enabledelayedexpansion
for /f "delims=" %%a in ('dir /b /s /a-d *.jpg *.png') do (
    for /f "tokens=1,3" %%i in ('nconvert.exe -info "%%a" ^| findstr "Width Height"') do (
        set "%%i=%%j"
    )
    set /a modW=Width%%2
    set /a modH=Height%%2
    set "change=0"
    if !modW! neq 0 (
        set /a newW=Width-1
        set "change=1"
    ) else (
        set newW=!Width!
    )
    if !modH! neq 0 (
        set /a newH=Height-1
        set "change=1"
    ) else (
        set newH=!Height!
    )
    if !change! equ 1 (
        nconvert -overwrite -crop 0 0 !newW! !newH! "%%a"
    )
)
复制代码