[Iska]

Код:

@echo off
setlocal enableextensions enabledelayedexpansion

for /f "usebackq delims=" %%i in (
	`2^>nul dir /b /a:-d "*.*" ^| findstr.exe /r /c:"^[0-9][0-9][0-9][0-9]-[0-9][0-9]-[0-9][0-9]-.*\..*$"`
) do (
	set sName=%%~nxi
	set sDate=!sName:~0,10!
	2>nul md "!sDate!"
	>nul move "%%~fi" ".\!sDate!\"
)

endlocal
exit /b 0

[NuclearBox]

Iska, спасибо! С фильтром через регулярные выражения работает отлично.

[alpap]

Код:

@echo off
for /f "tokens=1-3* delims=-" %%a in ('dir /a-d/b "????-??-??-*"') do (
  if not exist "%%a-%%b-%%c" md "%%a-%%b-%%c"
  >nul move "%%a-%%b-%%c-%%d" "%%a-%%b-%%c"
)
pause

[megaloman]

Можно соединить идею Iska и alpap, а в Move написать перемещение не по файлу, а группой за дату (ИМХО, сработает быстрее)

Код:

@Echo Off
cls
	Set "BoxIn=Z:\Box_In"
	For /f "usebackq tokens=1-3* delims=-" %%i In (
		`2^>nul Dir /A:-D /B "%BoxIn%\????-??-??-*.*"^| findstr.exe /B /R /C:"^[0-9][0-9][0-9][0-9]-[0-1][0-9]-[0-3][0-9]-"`) Do (
		If Exist "%BoxIn%\%%i-%%j-%%k-%%l" (
			2>nul Md "%BoxIn%\%%i-%%j-%%k"
			>NUL Move /Y "%BoxIn%\%%i-%%j-%%k-*.*" "%BoxIn%\%%i-%%j-%%k\"
		)
	)
Pause
Exit /B 0

Хотя, ИМХО, от findstr (выделено красным) можно и вовсе отказаться с незначительным ухудшением контроля имен, но с меньшим временем выполнения, хотя всё это для разовой задачи несущественно, раз она решена.

[NuclearBox]

alpap, megaloman, спасибо за интересные варианты!