VBNet - Форум - Как создать ярлык?

Вопрос: Как создать ярлык? Добавлено: 27.06.02 18:23

Автор вопроса: Новичек

Как из прграммы на VB создать ярлык какого либо файла???
Зарание спасибо!

Ответить

Ответы Всего ответов: 4

Номер ответа: 1
Автор ответа:

lsa

ICQ: 106490468

Вопросов: 2
Ответов: 7

Профиль | | #1

Добавлено: 28.06.02 05:02

Смотри

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

Вот и все

Ответить

Номер ответа: 2 Автор ответа: RomaVis ICQ: 266287351 Вопросов: 31 Ответов: 147	Профиль \| \| #2	Добавлено: 24.09.04 09:34
	Ага вот и всё!!!!!!!!!!!!!! А если у того, кто будет использовать эту прогу, не будет Microsoft Script Libary, дак шо?????? Надо найти класс lShellInk (или у кого-то попросить) и вставить в свою прогу - вот это всё, дак всё - я этот клас в своей "установке на ВБ одним файлом" использовал!!!! И работает!!!! Ответить

Номер ответа: 3 Автор ответа: RomaVis ICQ: 266287351 Вопросов: 31 Ответов: 147	Профиль \| \| #3	Добавлено: 24.09.04 09:35
	P.S. могу дать по почте, и если чё - то хочешь, то я большее время дня в ICQ (вернее нахожусь в состоянии 'В сети') Ответить

Номер ответа: 4 Автор ответа: sne Разработчик Offline Client ICQ: 233286456 Вопросов: 34 Ответов: 5445	Web-сайт: hw.t-k.ru Профиль \| \| #4	Добавлено: 24.09.04 09:57
	Еще раз всем надоем, и отошлю в поиск! Ответить

Страница: 1 |