[amel27]

получается работает только с английскими словами? с русскими ничего не находит »

текст вводится в OEM (DOS/866) кодировке... соответственно, и ищется в ней,
вариант через временный файл для поиска в 3-х кодировках (DOS/WIN/UTF8):

Код:

@Echo Off

:TXT
Set /P $TXT="Input word for search: "
If "%$TXT%"=="" GoTo TXT

Echo %$TXT%>"%~dpn0.tmp"
CHCP 1251 |>>"%~dpn0.tmp" Echo %$TXT%&CHCP 866 >Nul
CHCP 65001|>>"%~dpn0.tmp" Echo %$TXT%&CHCP 866 >Nul

:NUM
Set /P $NUM="Number of dirs: "
Set $IDX=1& Set /A $NUM+=0
If %$NUM% EQU 0 GoTo NUM

:DIR
Set /P $_%$IDX%="Path to folder %$IDX% for search: "
Call Set $T=%%$_%$IDX%%%
If Exist %$T% Set /A $IDX+=1
If %$IDX% LEQ %$NUM% GoTo DIR

:MOVE
Set /P $MOVE="Input destinantion dir: "
If "%$MOVE%"=="" GoTo MOVE

For /F "Tokens=1* Delims==" %%a In ('Set $_') Do For /F "Delims=" %%i In (
'FindStr /SMG:"%~dpn0.tmp" "%%b\*"') Do Move "%%i" "%$MOVE%" >Nul& Echo "%%i"