[решено] Переименование файлов - Компьютерный форум OSzone.net

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)

- Скриптовые языки администрирования Windows (http://forum.oszone.net/forumdisplay.php?f=102)

- - [решено] Переименование файлов (http://forum.oszone.net/showthread.php?t=195201)

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

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

Код:

@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

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

Цитата:

Цитата adm1nzoda

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

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