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

[Batya]

Блин, устал я побарывать эти значки. Частично и почти правильно поборол. Исправил последний пост со скриптом.

[A.N.T.]

Точно поборол А почему "почти" правильно...

[Batya]

А почему убрал возможность при клике на папку открывать её в total?

Используй для этого ранее приведенный скрипт.

Да и если вернуть это то может ли "сдвоеная" папка Автозагрузка открыться в тотале так например как при Ctrl+B?

Ты надеешься на чудо? Ничего волшебного не будет. Будет открываться либо %ALLUSERSPROFILE%\Start Menu\Программы\Автозагрузка, либо %USERPROFILE%\Start Menu\Программы\Автозагрузка. Их физически две. А объединять одинаковые папки в один bar .... По крайней мере не в ближайшее время.

[Batya]

Точно поборол А почему "почти" правильно...

Не могу определить, есть ли у файла иконки. Т.е. если висит ярлык на exe-файл, а иконка в ярлыке не указана, я в качестве файла иконки указываю именно этот файл. А он может (хотя он и exe) совсем не иметь иконки. И еще иногда (чаще всего для htm-файлов) из реестра выдирается не имя файла с иконкой, а %1. Я ХЗ, что это такое. Вот для таких файлов я указаываю "%SystemRoot%\system32\url.dll,0". Но я подозреваю, что это не всегда верно. Радует только, что таких файлов очень мало.

[A.N.T.]

В таком случае пусть будет %ALLUSERPROFELE%, Ещё бы убрать desktop.ini этого чуда вполне бы хватило А с двумя стандартными я уже разобрался

А почему убрал возможность при клике на папку открывать её в total?

Используй для этого ранее приведенный скрипт.

Понял, тут я немного ступил

[Batya]

Ещё бы убрать desktop.ini этого чуда вполне бы хватило

Ну, настырный . Сделал, что в меню не попадают скрытые файлы.

[A.N.T.]

Batya

Поставлю твою аватару в "Свойства системы" Звиняйте за настырность

[A.N.T.]

Мы тут с тобой как в чате .... Ещё раз извиняюсь

[D1P]

2Batya: оба скрипта для перегонки Start Menu в *.bar не работают, выдаётся ошибка:
---------------------------
Сервер сценариев Windows
---------------------------
Сценарий: D:\dshell\SOFT\TC_UTIL\Scripts\StartMenu.vbs
Строка: 46
Символ: 3
Ошибка: Путь не найден
Код: 800A004C
Источник: Ошибка выполнения Microsoft VBScript

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

Куда копать?

[Lamer]

D1P , а ты не забыл подправить пути с иноземных на кириллические? У тебя russian vodka, то есть windows?

[D1P]

Да, проблема была в этом.

[angry_dog]

Batya
Поменял в скрипте \Start Menu\Programs на \Главное меню\Программы, но всё равно ошибка:
---------------------------
Windows Script Host
---------------------------
Сценарий: D:\Downloads\Temp\123.vbs
Строка: 52
Символ: 4
Ошибка: Разрешение отклонено
Код: 800A0046
Источник: Ошибка выполнения Microsoft VBScript

Может дело в разнице путей Windows XP и Win7?
Batya, вразуми

[Flasher]

angry_dog
Попробуй заменить

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

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

на

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

  AppData = WSH.Environment("Process")("APPDATA")
  ProgramData = WSH.Environment("Process")("ProgramData")
  Set AUSM = FSO.GetFolder(ProgramData & "\Microsoft\Windows\Start Menu\Programs")
  Set CUSM = FSO.GetFolder(AppData & "\Microsoft\Windows\Start Menu\Programs")
  Set AUMM = FSO.GetFolder(ProgramData & "\Microsoft\Windows\Start Menu")
  Set CUMM = FSO.GetFolder(AppData & "\Microsoft\Windows\Start Menu")

[angry_dog]

ошибка:
---------------------------
Windows Script Host
---------------------------
Сценарий: D:\Downloads\Temp\123.vbs
Строка: 60
Символ: 3
Ошибка: Переменная не определена: 'AppData'
Код: 800A01F4
Источник: Ошибка выполнения Microsoft VBScript

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

[Flasher]

Пардон, я букву не ту написал в нижней переменной. Исправил.