yaoleg2, вот этот код делает то, что вам нужно.
Проследите, чтобы поддиректории (in, ins, inp) уже были созданы, я не делал проверку на их существование.
Код:
![Выделить весь код](images/misc/selectcode.png)
@Echo Off
Set Source=C:\Prog
Set Destination=E:\Prog
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
)