[Anonymоus]

Как вы и просили, поправил.

Код:

@Echo Off
Set Source=C:\Prog
Set Destination=E:\Prog

If Exist %Destination%\IN\1.txt (Exit 1)
For /F "tokens=*" %%F In ('Dir %Source%\INP\12??????.TXT /B') Do (
Copy %Source%\INP\%%F %Destination%\IN\
Ren %Destination%\IN\%%F 1.txt
Move %Source%\INP\%%F %Destination%\INS\
Exit
)