[vangogru]

что получилось
set Where=c:\*.txt
@ (if not exist "d:\text" md "d:\text")
for /f "delims=" %%f in ('dir "%Where%" /b /a-d /on /s') do (
copy %%~nf|findstr /rc:"^........$" d:\text\%%f
)

для copy попадает имя файла без расширения, а в каталог назначения имя файла с полным путем источника.

Заработало

set Where=c:\*.txt
@ (if not exist "d:\text" md "d:\text")
for /f "delims=" %%f in ('dir "%Where%" /b /a-d /on /s') do (
echo %%~nf|findstr /rc:"^........$" &© %%f d:\text\
)