Имеются несколько модемных соединений, как программно создать ярлыки для них на рабочем столе?
(соединения это не файл fcreateshelllink Не подходит)
Ярлыки
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Сообщений: 7
• Страница 1 из 1
- Gotha
- Продвинутый пользователь
-
- Сообщения: 106
- Зарегистрирован: 20.04.2006 (Чт) 10:55
- Откуда: Красногорск
Gotha » 05.05.2006 (Пт) 15:27
Вариант?
- Код: Выделить всё
Dim WSHShell
Dim NewShortcut
Set WSHShell = CreateObject("WScript.Shell")
Set NewShortcut = WSHShell.CreateShortcut("Полный путь и имя файла ярлыка")
NewShortcut.Arguments = "Командная строка"
NewShortcut.Description = "Описание"
NewShortcut.WindowStyle ="Стиль окна" (1)
NewShortcut.TargetPath = "Полный путь и имя программы"
NewShortcut.WorkingDirectory = "Рабочий каталог"
NewShortcut.IconLocation="Полный путь и имя файла с иконкой,индекс иконки(0)"
NewShortcut.Save
Du stirbst. Besitz stirbt.
Die Sippen sterben.
Der einzig lebt - wir wissen es
Der Toten Tatenruhm.
Die Sippen sterben.
Der einzig lebt - wir wissen es
Der Toten Tatenruhm.
- alibek
- Большой Человек
- Сообщения: 14205
- Зарегистрирован: 19.04.2002 (Пт) 11:40
- Откуда: Russia
alibek » 09.05.2006 (Вт) 22:16
Неудобно это очень из VB делать.
Может лучше будет создавать файлы-ярлыки своим кодом? Описание структуры lnk-файлов есть на http://www.wotsit.org.
Может лучше будет создавать файлы-ярлыки своим кодом? Описание структуры lnk-файлов есть на http://www.wotsit.org.
Lasciate ogni speranza, voi ch'entrate.
Сообщений: 7
• Страница 1 из 1
Кто сейчас на конференции
Сейчас этот форум просматривают: Majestic-12 [Bot] и гости: 172