пакетная переименовка файлов
От Alexander A. An (2:5085/109.1) к Vladimir Fyodorov
В ответ на Заголовок предыдущего сообщения в треде (Имя Автора)
Четверг Август 13 2009, 23:44, Vladimir Fyodorov --> Alexander A. An:
VF> Кстати, подскажи, что подправить, чтобы дубли по дате были менее
VF> многозначными. Мне достаточно 2 разрядов.
Hужно изменить батник так:
──────────────────────[ Windows Clipboard ]────────────────────────
cls
rem setlocal
set wdir=d:\temp\3
for %%i in (%wdir%\*.*) do (
for /f "tokens=1-5 delims=. " %%j in ("%%~xti") do (
call :copyfile %%i %%j %%k %%l %%n
)
)
goto end
:copyfile
Set /a num=1
set number=01
if not exist %wdir%\%4_%3_%2-%number%.%5 (
rename %1 %4_%3_%2-%number%.%5
goto :eof
)
:NextNumber
If Exist %wdir%\%4_%3_%2-%number%.%5 (
Set /a num=%num%+1
if %num% LSS 10 (
set number=0%num%
goto NextNumber
)
set number=%num%
GoTo NextNumber
)
rename %1 %4_%3_%2-%number%.%5
goto :eof
:end
──────────────────────[ Windows Clipboard ]────────────────────────
--- <[ ФК Локомотив (М) - Hаш паровоз вперёд летит... ]> ---
* Origin: Мчится тихий огонёк моей души (2:5085/109.1)
Ответы на это письмо:
From: Username
Заголовок следующего сообщения в треде может быть длинным и его придется перенести на новую строку
From: Username
Или коротким