[gora]

раскидать по папкам »

Команда "раскидать" заменена на "Copy"

Код:

@Echo Off
SetLocal EnableDelayedExpansion
:: Обрабатываемая папка
Set Folder=e:\Temp\Source
:: папка назначения
Set Out=e:\Temp\jpg

For /R "%Folder%" %%i In (*.jpg) Do (
	Set ti=%%~ni
	MD "%Out%\!ti:~1,8!" 2>Nul
	Copy "%%i" "%Out%\!ti:~1,8!">Nul
)
Pause>Nul