[amel27]

давай обсудим »

если в имени только ASCII можно попробовать, измененный вариант D_Master'а:

Код:

@Echo Off

Set $log=log.txt
Set $codes=001,002,004

For %%a In (%$codes%) Do (
    For /F "Delims=" %%i In ('DIR /B /A:-D .\*^|FindStr /BRC:"[aA]*\.%%a"') Do (
        If Not Exist %%a\ MD %%a\
        Copy "%%i" %%a\ > nul
        Echo File "%%~nxi" was copied from "%%~dpi" to "%%a\" at %time% %date%>>%$log%
    )
)