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

[angry_dog]

это наверное я туплю, но ошибка осталась. Скопировал код, который "на" и вставил в скрипт.

[Flasher]

А, это я не туда смотрю.
Из комстроки вызови: %comspec% /k set programdata
Что показывает?

[angry_dog]

вставил в комстроку %comspec% /k set programdata - показало путь к активной панели. Не ругайтесь)

[Flasher]

angry_dog
И больше ничего? А первой строкой?
Тут может быть только два варианта:
1. Переменная среды programdata не определена
2. ProgramData=<Путь к ProgramData>

[Maximus]

angry_dog
Чуть выше пути посмотри

[angry_dog]

Flasher, в первой строке: ProgramData=C:\ProgramData

[Flasher]

Вот другое дело. В общем, я так думаю, что с переменными порядок.
Попробуем-ка через "Заменить все" (ProgramData поменять на (Trim(ProgramData) и (AppData на (Trim(AppData) .

[angry_dog]

колличество замен 2 (Trim(ProgramData) и 2 (Trim(AppData)
Ошибка та же: Переменная не определена: 'AppData'

[Flasher]

Значит, не в этом дело. Неужели APPDATA нет? Быть не может.
Её теперь проверь: %comspec% /k set appdata

[angry_dog]

APPDATA=C:\Users\Администратор\AppData\Roaming\
F:\X-Art>

[Flasher]

Ха-ха... Вот я невнимательный. Там же Option Explicit стоит. Да и переменные эти лучше не в функцию прописывать.
Короче, надо в строку

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

  Dim FSO, i, Menu, Buffer, Lnk

дописать

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

, AppData, ProgramData

и под неё переместить это

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

  AppData = WSH.Environment("Process")("APPDATA")
  ProgramData = WSH.Environment("Process")("ProgramData")

[angry_dog]

Короче, надо в строку
Dim FSO, i, Menu, Buffer, Lnk

Не нашёл такой строки. Нашёл

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

Dim F, AUSM, CUSM, AUSP, CUSP, Menu, n, i

дописал: " , AppData, ProgramData"

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

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

[Flasher]

Упс, я вот на этот скрипт смотрел.
В последнем надо дописывать к этой строке

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

Dim StartMenuPath, UnknowTypeIcon

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

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

If IsNumeric(WScript.Arguments(0)) = True Then

[angry_dog]

Flasher
Простите, но я запутался

В последнем надо дописывать к этой строке

что куда вставлять в последнем. Не сердитесь)

[Flasher]

angry_dog
Строка целиком должна быть такая:

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

Dim StartMenuPath, UnknowTypeIcon, AppData, ProgramData

Следуем контексту этого поста.