@echo off
setlocal enabledelayedexpansion
for %%i in (%~dp0\*) do (
set filename=%%~nxi
if not !filename!==%~nx0 (
@REM ファイル名から9文字目から10文字をフォルダ名(日付)として抽出
set dirname=!filename:~9,10!
md !dirname!
move "!filename!" .\!dirname!\
)
)
pause