@echo off
SetLocal EnableExtensions EnableDelayedExpansion
:: исходная папка
set Src=D:\Import
:: конечная папка
set Dest=D:\ImportOLD
For %%a in ("%Src%\*.jpg") do (
set "f=%%~nxa"
set "d=%Dest%\!f:~,4!\!f:~4,2!\!f:~6,2!"
if not exist "!d!" md "!d!"
move "%%a" "!d!\!f:~8!"
)
pause