Создание BAR-файла на основе заданного набора ярлыков

angry_dog

мы про этот скрипт говорим или про этот
у меня второй. Давайте сначала?

Flasher

angry_dog
Мы говорим уже, естественно, о последнем.

angry_dog

Уф, догнал что куда вставлять.
---------------------------
Windows Script Host
---------------------------
Сценарий: D:\Downloads\Temp\456.vbs
Строка: 12
Символ: 2
Ошибка: Требуется объект: ''
Код: 800A01A8
Источник: Ошибка выполнения Microsoft VBScript

Но я начал "с чистого листа" Замены с предыдущей странице делать?

Flasher

12 строка такая:

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

Set WSH = WScript.CreateObject("WScript.Shell")

См. оригинал.

angry_dog писал(а):Замены с предыдущей странице делать?

А как же?

А нижние две вставить перед строкой

angry_dog

Flasher писал(а):12 строка такая:

У меня это 14 строка.
Flasher, не сочтите за наглость посмотрите мой скрипт, что я там наблудил?
http://rghost.ru/22574831

Flasher

А как же то, с чего начали? Без этого и смысла не имело.

В данном случае уже замена производится, естественно, только на 4 последние строки из 6.

angry_dog

1.начало выполнил, заменил блок
2.нашел строку: Dim StartMenuPath, UnknowTypeIcon
3.добавил в неё: , AppData, ProgramData
4.получилось: Dim StartMenuPath, UnknowTypeIcon, AppData, ProgramData
5.Под неё следуя контексту поста поместил:
AppData = WSH.Environment("Process")("APPDATA")
ProgramData = WSH.Environment("Process")("ProgramData")
6.Вроде всё правильно сделал?
7.ошибка:
---------------------------
Windows Script Host
---------------------------
Сценарий: D:\Downloads\Temp\789.vbs
Строка: 12
Символ: 2
Ошибка: Требуется объект: ''
Код: 800A01A8
Источник: Ошибка выполнения Microsoft VBScript

---------------------------
ОК
---------------------------

Flasher

angry_dog
Дык я тут же написал, куда вставлять. А вижу, что не туда.

angry_dog

Вытянул кнопку на панель инструментов, нажимаю.... нет ошибок!! Это плюс! Но и не происходит ничего - это минус.))) Подозреваю что d параметрах нужно прописать "0". Прописываю - ошибка

Flasher

Т.е. файл startmenu.bar в каталоге TC не создаётся?
Что за ошибка?

angry_dog

если в параметрах прописать "0"
---------------------------
Windows Script Host
---------------------------
Сценарий: D:\Downloads\Temp\789.vbs
Строка: 66
Символ: 4
Ошибка: Переменная не определена: 'AUMM'
Код: 800A01F4
Источник: Ошибка выполнения Microsoft VBScript

---------------------------
ОК
---------------------------

Flasher

Понял, там он названия переменных поменял.
Нужно было вместо этого

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

   Set AUSM = FSO.GetFolder(WSH.ExpandEnvironmentStrings("%ALLUSERSPROFILE%") & "\Start Menu") 
   Set CUSM = FSO.GetFolder(WSH.ExpandEnvironmentStrings("%USERPROFILE%")     & "\Start Menu") 
   Set AUSP = FSO.GetFolder(WSH.ExpandEnvironmentStrings("%ALLUSERSPROFILE%") & "\Start Menu\Programs") 
   Set CUSP = FSO.GetFolder(WSH.ExpandEnvironmentStrings("%USERPROFILE%")     & "\Start Menu\Programs")

вставить

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

  Set AUSM = FSO.GetFolder(ProgramData & "\Microsoft\Windows\Start Menu")
  Set CUSM = FSO.GetFolder(AppData & "\Microsoft\Windows\Start Menu")
  Set AUSP = FSO.GetFolder(ProgramData & "\Microsoft\Windows\Start Menu\Programs")
  Set CUSP = FSO.GetFolder(AppData & "\Microsoft\Windows\Start Menu\Programs")

angry_dog

Поменял. Ошибка
---------------------------
Windows Script Host
---------------------------
Сценарий: D:\Downloads\Temp\789.vbs
Строка: 181
Символ: 4
Ошибка: Разрешение отклонено
Код: 800A0046
Источник: Ошибка выполнения Microsoft VBScript

---------------------------
ОК
---------------------------

Flasher

Чтобы были выпадающие подменю, нужно для каждой папки формировать bar-файл. По умолчанию (см. переменную в скрипте) они кладутся в %COMMANDER_PATH%\Bars.

angry_dog

Flasher
а у Вас работает?