Переименование с периодическим сбросом счётчика

[Avada]

Fess
В вышеупомянутой памятке сказано:

Помните, что дублирование кода скрипта является избыточным цитированием, что запрещено правилами форума!

Отсчитать строки в коде, уяснить, что речь про блок "Изменяемые параметры" в самом его начале, а конкретно про разрядность счётчика (что является прямым ответом на заданный вопрос), после чего поменять там 3 на 1 — это так сложно?
Кстати, и в первом сообщении достаточно было вместо совершенно ненужной цитаты всего-то сослаться на конкретный скрипт. Как решается на форуме проблема с оформлением ссылок у новичков, пояснялось многократно — пример.
Ненужный текст кода удалён.

[Flasher]

Отсчитать строки в коде

Или использовать редактор/плагин с нумерацией строк.

[Mashulechka]

vbs скрипт отсюда viewpost.php?p=124713
6 лет не было горя. Обновлялась винда и версии тотала. Всё работает до сих пор на основном компьютере. Недавно тотал уже 11 версии стал. Проблем со скриптом нет.
Но недавно был приобретен nettop - всё делаю так же, как на основном компе - скачиваю и регистрирую хелпер TCWSHelp.exe /REGSERVER, ставлю .NetFramework 3,5 (2.0 и 3.0), параметры кнопки задаю те же (команда - путь к скрипту, параметры - %WL *.mp3 0, путь запуска - пусто), vbs скрипт и просто переписываю и создаю заново - с помощью akelpad и notepad++. И уже пробую на чистой виртуальной машине с разными версиями тотала - и всё равно везде одна и та же ошибка - 800a0035 в 45 строке 13 символе, эта строка:

Код: Выделить всё

            FSO.GetFile(P & F).Name = Path.Title & " (" & R(i) & ")" & Ext

Почему так? Как исправить? Работает же на старом компе, почему тогда на других компьютерах ошибка?

[Avada]

Mashulechka
Поскольку автор скрипта в работе этого форума больше не участвует, набирайтесь терпения и ждите помощи от кого-то, кто в этом сможет разобраться.

[Batya]

Mashulechka
Надо проверять, вставляя диагностические строки. Попробуй перед этой строкой вставить:

Код: Выделить всё

MsgBox P, 0, "P"
MsgBox F, 0, "F"
MsgBox FSO.GetFile(P & F).Name, 0, "Имя файла"
MsgBox Path.Title, 0, "Path.Title"
MsgBox R(i), 0, "R(i)"
MsgBox Ext, 0, "Ext"

[Mashulechka]

Mashulechka
Надо проверять, вставляя диагностические строки.

Первое окно: полный путь первого каталога, заголовок окна - буква P.
Второе окно: первое имя файла из этого каталога без расширения, заголовок окна - буква F.

[Batya]

Mashulechka
Уф... Я бы сначала попробовал в строке ...

Код: Выделить всё

          If FSO.FileExists(F.Path) Then Lst.Add CStr(F)

... кое-что изменить:

Код: Выделить всё

          If FSO.FileExists(F.Path) Then Lst.Add FSO.GetFileName(F.Path)

Если сработает, то разница с предыдущей машиной в том, что на текущей в проводнике не включено отражение расширений файлов. Дело в том, что "ShA.NameSpace(P)" может по-разному отрабатывать.

[Mashulechka]

Mashulechka
Уф... Я бы сначала попробовал в строке ...

Обалдеть! Кто бы мог подумать! Работает! Спасибо преогромаднейшее!!!