[alpap]

it3,
я вот одного не пойму - зачем переименовывать файлы, продолжать нумерацию, вы же их просто перемещаете, раскидывайте по одной тысяче, например, как есть да и все:
(имею ввиду что для "01-18" конец в нумерации надеюсь бывает и вряд-ли это 1000 000, поэтому в конце дня батничек на запуск - к утру раскидает, а утром уже "01-19" и поехали заново)

Код:

@echo off
set "d=NaklScan"
:: Число файлов для разбивки по папкам
set kf=1000

:l
set /a m+=1
setlocal enabledelayedexpansion 
 2>nul dir/a-d/b "%d%"|>nul find /v "" || goto :eof
 for /f "delims=" %%a in ('2^>nul dir /a-d/b "%d%"') do (
  if not exist "%d%%m%" md "%d%%m%"
  set /a n+=1& if !n! leq %kf% >nul move/y "%d%\%%a" "%d%%m%\%%a"
 )
endlocal
goto l
pause