Страница 7 из 7
Добавлено: Пт ноя 15, 2019 05:48
Avada
Fess
В вышеупомянутой
памятке сказано:
Помните, что дублирование кода скрипта является избыточным цитированием, что запрещено правилами форума!
Отсчитать строки в коде, уяснить, что речь про блок "Изменяемые параметры" в самом его начале, а конкретно про разрядность счётчика (что является прямым ответом на заданный вопрос), после чего поменять там 3 на 1 — это так сложно?
Кстати, и в первом сообщении достаточно было вместо совершенно ненужной цитаты всего-то сослаться на конкретный скрипт. Как решается на форуме проблема с оформлением ссылок у новичков, пояснялось многократно —
пример.
Ненужный текст кода удалён.
Добавлено: Пт ноя 15, 2019 11:28
Flasher
Avada писал(а):Отсчитать строки в коде
Или использовать редактор/плагин с нумерацией строк.
Добавлено: Ср авг 09, 2023 01:32
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
Почему так? Как исправить? Работает же на старом компе, почему тогда на других компьютерах ошибка?
Добавлено: Ср авг 09, 2023 05:28
Avada
Mashulechka
Поскольку автор скрипта в работе этого форума больше не участвует, набирайтесь терпения и ждите помощи от кого-то, кто в этом сможет разобраться.
Добавлено: Ср авг 16, 2023 10:16
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"
Добавлено: Вт сен 12, 2023 21:21
Mashulechka
Batya писал(а):Mashulechka
Надо проверять, вставляя диагностические строки.
Первое окно: полный путь первого каталога, заголовок окна - буква P.
Второе окно: первое имя файла из этого каталога без расширения, заголовок окна - буква F.
Добавлено: Чт сен 14, 2023 01:22
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)" может по-разному отрабатывать.
Добавлено: Чт сен 14, 2023 18:59
Mashulechka
Batya писал(а):Mashulechka
Уф... Я бы сначала попробовал в строке ...
Обалдеть! Кто бы мог подумать! Работает! Спасибо преогромаднейшее!!!