[zion87]

Код:

@Echo Off
Set direct=D:\
Set copy=D:\copy\
Cd /d "%direct%"
For /f "Delims=*" %%H In ('Dir /b "*.txt"') Do Call :1 "%%H"
Goto:Eof
:1
Set x=%1
For /f "Delims=*" %%S In ('Dir /b "*.txt" ^|Findstr /bev /c:%x%') Do Call :2 "%%S"
Goto:Eof
:2
Set z=%1
@Echo n|COMP %x% %z% >nul
If %errorlevel%==0 Move /y %z% "%copy%"