View previous topic :: View next topic |
Author |
Message |
Avada
Joined: 01 Aug 2008 Posts: 10280 Location: Россия, Саратов
|
(Separately) Posted: Fri Nov 15, 2019 06:48 Post subject: |
|
|
Fess
В вышеупомянутой памятке сказано:
Quote: | Помните, что дублирование кода скрипта является избыточным цитированием, что запрещено правилами форума! |
Отсчитать строки в коде, уяснить, что речь про блок "Изменяемые параметры" в самом его начале, а конкретно про разрядность счётчика (что является прямым ответом на заданный вопрос), после чего поменять там 3 на 1 — это так сложно?
Кстати, и в первом сообщении достаточно было вместо совершенно ненужной цитаты всего-то сослаться на конкретный скрипт. Как решается на форуме проблема с оформлением ссылок у новичков, пояснялось многократно — пример.
Ненужный текст кода удалён. _________________ Даже самая богатая фантазия
Не представит себе наши безобразия. |
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Fri Nov 15, 2019 12:28 Post subject: |
|
|
Avada wrote: | Отсчитать строки в коде | Или использовать редактор/плагин с нумерацией строк. _________________ Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
Back to top |
|
|
Mashulechka
Joined: 15 Oct 2016 Posts: 8
|
(Separately) Posted: Wed Aug 09, 2023 02:32 Post subject: |
|
|
vbs скрипт отсюда https://forum.wincmd.ru/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 символе, эта строка:
Code: | FSO.GetFile(P & F).Name = Path.Title & " (" & R(i) & ")" & Ext |
Почему так? Как исправить? Работает же на старом компе, почему тогда на других компьютерах ошибка? |
|
Back to top |
|
|
Avada
Joined: 01 Aug 2008 Posts: 10280 Location: Россия, Саратов
|
(Separately) Posted: Wed Aug 09, 2023 06:28 Post subject: |
|
|
Mashulechka
Поскольку автор скрипта в работе этого форума больше не участвует, набирайтесь терпения и ждите помощи от кого-то, кто в этом сможет разобраться. _________________ Даже самая богатая фантазия
Не представит себе наши безобразия. |
|
Back to top |
|
|
Batya
Joined: 15 Dec 2004 Posts: 2219 Location: Москва, Россия
|
(Separately) Posted: Wed Aug 16, 2023 11:16 Post subject: |
|
|
Mashulechka
Надо проверять, вставляя диагностические строки. Попробуй перед этой строкой вставить:
Code: | 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" |
_________________ Нет, я не сплю. Я просто медленно моргаю. |
|
Back to top |
|
|
Mashulechka
Joined: 15 Oct 2016 Posts: 8
|
(Separately) Posted: Tue Sep 12, 2023 22:21 Post subject: |
|
|
Batya wrote: | Mashulechka
Надо проверять, вставляя диагностические строки. |
Первое окно: полный путь первого каталога, заголовок окна - буква P.
Второе окно: первое имя файла из этого каталога без расширения, заголовок окна - буква F.
|
|
Back to top |
|
|
Batya
Joined: 15 Dec 2004 Posts: 2219 Location: Москва, Россия
|
(Separately) Posted: Thu Sep 14, 2023 02:22 Post subject: |
|
|
Mashulechka
Уф... Я бы сначала попробовал в строке ...
Code: | If FSO.FileExists(F.Path) Then Lst.Add CStr(F) |
... кое-что изменить:
Code: | If FSO.FileExists(F.Path) Then Lst.Add FSO.GetFileName(F.Path) |
Если сработает, то разница с предыдущей машиной в том, что на текущей в проводнике не включено отражение расширений файлов. Дело в том, что "ShA.NameSpace(P)" может по-разному отрабатывать. _________________ Нет, я не сплю. Я просто медленно моргаю. |
|
Back to top |
|
|
Mashulechka
Joined: 15 Oct 2016 Posts: 8
|
(Separately) Posted: Thu Sep 14, 2023 19:59 Post subject: |
|
|
Batya wrote: | Mashulechka
Уф... Я бы сначала попробовал в строке ...
|
Обалдеть! Кто бы мог подумать! Работает! Спасибо преогромаднейшее!!! |
|
Back to top |
|
|
|
|
You cannot post new topics in this forum You cannot reply to topics in this forum You cannot edit your posts in this forum You cannot delete your posts in this forum You cannot vote in polls in this forum
|
Powered by phpBB © 2001, 2005 phpBB Group
|