[alpap]

Код сохранить в кодировке OEM 866:

Код:

@echo off
set "d=основная папка"
set "d_out=реестры готово"
for %%a in ("а","аа","б","в") do for /f "delims=" %%b in ('dir/a-d/b/s "%d%"^|findstr/rc:"\<%%~a\>"') do (
 if not exist "%d_out%\%%~a" md "%d_out%\%%~a"
 copy "%%b" "%d_out%\%%~a"
)
exit

.