[amel27]

Код:

@echo off
SETLOCAL EnableDelayedExpansion

set $SRC=D:\PICS
set $DST=D:\NEW

for /d %%a in ("%$SRC%\*") do (set/a $n=-1
for /f "delims=" %%b in ('dir/b/s/a-d "%%a\*.jpg"2^>nul') do (set/a $n+=1
set/a $m=1+!$n!/500
if not exist "%$DST%\%%~na\!$m!" md "%$DST%\%%~na\!$m!"
move/-y "%%b" "%$DST%\%%~na\!$m!\">nul
))

[El Sanchez]

amel27, надо поменять местами выделенное, а то не отработает:

Код:

for /d %%a in ("%$SRC%\*.jpg") do (set/a $n=-1
for /f "delims=" %%b in ('dir/b/s/a-d "%%a\*"2^>nul') do (set/a $n+=1

[amel27]

El Sanchez, тем страннее, что стоит "решено"