Добавлено: Чт сен 22, 2011 01:26
angry_dog
Мы говорим уже, естественно, о последнем.
Total Commander
Форум поддержки пользователей Total Commander
https://forum.wincmd.ru/
Создание BAR-файла на основе заданного набора ярлыков
Страница 6 из 7
Добавлено: Чт сен 22, 2011 01:38
Добавлено: Чт сен 22, 2011 01:53
Уф, догнал что куда вставлять.
---------------------------
Windows Script Host
---------------------------
Сценарий: D:\Downloads\Temp\456.vbs
Строка: 12
Символ: 2
Ошибка: Требуется объект: ''
Код: 800A01A8
Источник: Ошибка выполнения Microsoft VBScript
Но я начал "с чистого листа" Замены с предыдущей странице делать?
---------------------------
Windows Script Host
---------------------------
Сценарий: D:\Downloads\Temp\456.vbs
Строка: 12
Символ: 2
Ошибка: Требуется объект: ''
Код: 800A01A8
Источник: Ошибка выполнения Microsoft VBScript
Но я начал "с чистого листа" Замены с предыдущей странице делать?
Добавлено: Чт сен 22, 2011 01:59
12 строка такая:См. оригинал.
Код: Выделить всё
Set WSH = WScript.CreateObject("WScript.Shell")А как же?angry_dog писал(а):Замены с предыдущей странице делать?
А нижние две вставить перед строкой
Добавлено: Чт сен 22, 2011 12:40
У меня это 14 строка.Flasher писал(а):12 строка такая:
Flasher, не сочтите за наглость посмотрите мой скрипт, что я там наблудил?
http://rghost.ru/22574831
Добавлено: Чт сен 22, 2011 18:15
А как же то, с чего начали? Без этого и смысла не имело. 
В данном случае уже замена производится, естественно, только на 4 последние строки из 6.
В данном случае уже замена производится, естественно, только на 4 последние строки из 6.
Добавлено: Чт сен 22, 2011 18:54
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
---------------------------
ОК
---------------------------
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
---------------------------
ОК
---------------------------
Добавлено: Чт сен 22, 2011 18:58
angry_dog
Дык я тут же написал, куда вставлять. А вижу, что не туда.
Дык я тут же написал, куда вставлять. А вижу, что не туда.
Добавлено: Чт сен 22, 2011 19:45
Вытянул кнопку на панель инструментов, нажимаю.... нет ошибок!! Это плюс! Но и не происходит ничего - это минус.))) Подозреваю что d параметрах нужно прописать "0". Прописываю - ошибка
Добавлено: Чт сен 22, 2011 20:43
Т.е. файл startmenu.bar в каталоге TC не создаётся?
Что за ошибка?
Что за ошибка?
Добавлено: Чт сен 22, 2011 21:19
если в параметрах прописать "0"
---------------------------
Windows Script Host
---------------------------
Сценарий: D:\Downloads\Temp\789.vbs
Строка: 66
Символ: 4
Ошибка: Переменная не определена: 'AUMM'
Код: 800A01F4
Источник: Ошибка выполнения Microsoft VBScript
---------------------------
ОК
---------------------------
---------------------------
Windows Script Host
---------------------------
Сценарий: D:\Downloads\Temp\789.vbs
Строка: 66
Символ: 4
Ошибка: Переменная не определена: 'AUMM'
Код: 800A01F4
Источник: Ошибка выполнения Microsoft VBScript
---------------------------
ОК
---------------------------
Добавлено: Чт сен 22, 2011 21:27
Понял, там он названия переменных поменял.
Нужно было вместо этоговставить
Нужно было вместо этого
Код: Выделить всё
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")Добавлено: Чт сен 22, 2011 21:30
Поменял. Ошибка
---------------------------
Windows Script Host
---------------------------
Сценарий: D:\Downloads\Temp\789.vbs
Строка: 181
Символ: 4
Ошибка: Разрешение отклонено
Код: 800A0046
Источник: Ошибка выполнения Microsoft VBScript
---------------------------
ОК
---------------------------
---------------------------
Windows Script Host
---------------------------
Сценарий: D:\Downloads\Temp\789.vbs
Строка: 181
Символ: 4
Ошибка: Разрешение отклонено
Код: 800A0046
Источник: Ошибка выполнения Microsoft VBScript
---------------------------
ОК
---------------------------
Добавлено: Чт сен 22, 2011 21:54
Чтобы были выпадающие подменю, нужно для каждой папки формировать bar-файл. По умолчанию (см. переменную в скрипте) они кладутся в %COMMANDER_PATH%\Bars.
Добавлено: Чт сен 22, 2011 21:54
Flasher
а у Вас работает?
а у Вас работает?