ImageMagick batch resize .jpg

@ECHO OFF

:: add to SendTo Menu
:: explorer %USERPROFILE%\AppData\Roaming\Microsoft\Windows\SendTo

SET CONVERT=D:\Apps\ImageMagick\convert.exe
set TODAY=%date:~0,5%
SET /A COUNT=1

IF NOT EXIST "%TODAY%" MKDIR %TODAY%

FOR /F "delims=" %%I IN ('dir /b *.jpg') DO (
IF EXIST %%I CALL :RESIZE "%%I"
)

GOTO EOF

:RESIZE
SET SOURCE=%~1
SET TARGET=%~n1.jpg
IF NOT EXIST "%TODAY%\%TARGET%" (
ECHO %COUNT% RESIZING %TARGET%
%IMCONVERT% -interlace Plane -filter Lanczossharp -distort resize 3157x^> -quality 96%% "%SOURCE%" "%TODAY%\%TARGET%"
SET /A COUNT+=1
)

:EOF