@@echo off
rem 実行フォルダ内にあるCSVを、ファイル名の先頭6文字のフォルダごとに分類

for %%A in (*.csv) do call :Main %%A %%~nxA
goto End

:Main
set bname=%2
set dirname=%bname:~0,6%
if not exist %dirname% mkdir %dirname%
move %1 %dirname%
goto :eof

:End
pause