[решено] Переименование файлов

[adm1nzoda]

Здравствуйте. У меня вот такая ситуация.
Я отсканировал книгу по порядке. То есть, сначала все четные страницы, потом все нечетные страницы. Естественно появляется проблема, где надо все страницы сделать по порядке. То есть все нечетные страницы переименовать из
Изображение 001, Изображение 002, Изображение 003 на Страница 001, Страница 003, Страница 005
и все четные страницы из
Изображение 001, Изображение 002, Изображение 003 на Страница 002, Страница 004, Страница 006.

[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 - будет перемещение с переименованием.