Total Commander

так годится, спасибо

при первом использовании скрипта нумерация разная, после добавления файлов - имеется дубляж номеров - jpg - jpeg

Flasher Спасибо, работает

Flasher писал(а):Под одним - расширения-то разные. Могу сделать под разными.

- было бы замечательно. с подчеркиванием разобрался, спасибо

jpeg и jpg получились под одним номером, если добавляются файлы имеющие в названии "_" то в обработку они не попадают

Два раза 1_09.jpg не удалили один случайно из старого списка

Добавлено спустя 4 минуты:

в Вашем варианте если добавляются новые файлы, скрипт вообще не работает, в моем он работает, но странно переименновывает

1 нажатие
1_09.jpg
1_01.jpg
1_02.jpg
1_03.jpg
1_04.jpg
1_05.jpg
1_06.jpg
1_07.jpg
1_08.jpg
1_09.jpg

добавление файлов

2 нажатие

1_010.jpg
1_11.jpg
1_12.jpg
1_13.jpg
1_14.jpg
1_15.jpg
1_16.jpg
1_17.jpg
1_18.jpg
1_19.jpg
1_20.jpg
1_21.jpg
1_22.jpg
1_23.jpg
1_24.jpg
1_25.jpg
1_26.jpg
1_27.jpg
1_28 ...

Flasher:
Убрал строку
If UL Then : If PFix = Left(BN, UL) Then Test = IsNumeric(Mid(BN, UL + 1)) : End If

скрипт стал переименовывать вновь добавленные файлы. Осталась проблема с нумерацией - скачет как хочет - нет системы в нумерации
Изменил строку на

If UL Then : If PFix = Left(BN, UL) Then ...

к сожалению, хаос

Переименовывать стал, но результаты непредсказуемые - каждое нажатие новый набор нумерации, без какай - либо системы

к сожалению, правда. специально переименовал фалы только с буквенными именами - никакой реакции

не переименновывает добавленные файлы

нуль я убрал потому, что идет нумерация 01 ... 09 010, 011 ... вместо 01 ... 10, 11.
Под началом нумерации я имеел ввиду, что было abc_1 ... abc_10 - добавляю несколько файлов, запускаю скрипт и получаю abc_10 аbc_11 ... т.е. начало нумерации с номера последнего файла по счету который был до ...

Flasher:

Правильно ли будет писать так:
If (Ext = "jpg" Or Ext = "jpeg") And Not IsNumeric(.GetBaseName(F)) Then
i = i + 1 : Do While .FileExists(Fd.Self.Name & "_" & i & "." & Ext ) : i = i + 1 : Loop
.GetFile(F).Name = Fd.Self.Name & "_" & i & "." & Ext

И вопрос: Почему при добавлении новых ...

имена меняем и для HTML и в HTML
Спасибо и спокойной ночи