初めまして。
いつも参考にさせてもらっています。

同一フォルダー内に以下のような形式のファイルが複数存在します。
【同一フォルダー内に格納されているファイル】
111_test.txt
222_test.txt
333_test.txt
111_testtest.txt

上記ファイル名から頭３バイトを取得して、その値と同じフォルダーを作成し、該当するファイルをコピー（移動でも可）する。
【結果】
111フォルダ内→111_test.txt,111_testtest.txt
222フォルダ内→222_test.txt
333フォルダ内→333_test.txt

OSはWindowsXPです。

以上ご教授お願いします。

for %%F in (*.txt) do call :sub %%F
goto :EOF

:sub
set NAME=%1
set DIR=%NAME:~0,3%
md %DIR% 2>NUL
copy %NAME% %DIR%
goto :EOF

>>1. otnさん [folo:fpcu/434/topic/105/1]
期待通りの動作ができました。
ありがとうございます。