[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