[gora]

Код:

@Echo Off
SetLocal enabledelayedexpansion
:: кодировка кириллица DOS (866)
:: четные страницы
Set even=e:\Temp\even
:: нечетные страницы
Set odd=e:\Temp\odd
:: перенумерованные страницы
Set all=e:\Temp\all

RD /S /Q "%all%" 2>Nul
MD "%all%"

Call :_rencopy "%even%" 1
Call :_rencopy "%odd%" 0
Pause
Exit

:_rencopy
For /R %1 %%a In (*) Do (
	Set ta=%%~na
	Set /a tta=1!ta:~-3!*2-%2
	Copy "%%a" "%all%\Страница !tta:~-3!%%~xa" >Nul
)
GoTo :EOF

[adm1nzoda]

gora, спс. Тока теперь проблема в другом. Как перемешать файлы, не создавая копии?..

[gora]

Как перемешать файлы, не создавая копии?.. »

Замените Copy на Move - будет перемещение с переименованием.