Total Commander

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

поборол. Исправил последний пост со скриптом.

Точно поборол

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

A.N.T. писал(а):А почему убрал возможность при клике на папку открывать её в total?

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

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

Ты надеешься на чудо?

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

A.N.T. писал(а):Точно поборол А почему "почти" правильно...

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

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

А с двумя стандартными я уже разобрался

Batya писал(а):
A.N.T. писал(а):А почему убрал возможность при клике на папку открывать её в total?
Используй для этого ранее приведенный скрипт.

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

A.N.T. писал(а):Ещё бы убрать desktop.ini этого чуда вполне бы хватило

Ну, настырный

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

Batya

Поставлю твою аватару в "Свойства системы"

Звиняйте за настырность

Мы тут с тобой как в чате ....

Ещё раз извиняюсь

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

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

Куда копать?

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

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

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

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

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")

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

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

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

Total Commander

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