Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > VB6 > Создание ярлыка на рабоч с указанным путём к файлу

Автор: abalich 2.3.2007, 20:13

Здравствуйте!!!
У меня такой вопрос - есть некий start.exe файл расположенный допустим на C:\ т.е C:\start.exe. Как мне создать ярлык (к этому файлу) на рабочем столе?

Автор: Akina 2.3.2007, 22:27

Самое простое - использовать метод CreateShortcut объекта WScript.Shell

Автор: ~FoX~ 3.3.2007, 10:32

Можно реализовать через COM (CLSID_ShellLink). Но это геморойней в плане кодинга.

Автор: abalich 3.3.2007, 15:47

Цитата

Самое простое - использовать метод CreateShortcut объекта WScript.Shell

А можно на примере поподробней? smile

Автор: Bogdan1024 3.3.2007, 16:30

Код


Set Shell = CreateObject("WScript.Shell")
DesktopPath = Shell.SpecialFolders("Desktop")
Set link = Shell.CreateShortcut(DesktopPath & "\test.lnk")
link.Arguments = "1 2 3"
link.Description = "test shortcut"
link.HotKey = "CTRL+ALT+SHIFT+X"
link.IconLocation = "foo.exe,1"
link.TargetPath = "c:\blah\foo.exe"
link.WindowStyle = 3
link.WorkingDirectory = "c:\blah"
link.Save

Автор: abalich 3.3.2007, 19:22

Цитата

Код


Set Shell = CreateObject("WScript.Shell")
DesktopPath = Shell.SpecialFolders("Desktop")
Set link = Shell.CreateShortcut(DesktopPath & "\test.lnk")
link.Arguments = "1 2 3"
link.Description = "test shortcut"
link.HotKey = "CTRL+ALT+SHIFT+X"
link.IconLocation = "foo.exe,1"
link.TargetPath = "c:\blah\foo.exe"
link.WindowStyle = 3
link.WorkingDirectory = "c:\blah"
link.Save

Я сделал так: но не работает - пишет Argument not optional

Код


Private Sub Command1_Click()
cresate
End Sub
Sub cresate()
Set Shell = CreateObject("WScript.Shell")
DesktopPath = Shell.SpecialFolders("Desktop")
Set link = Shell.CreateShortcut(DesktopPath & "\test.lnk")
link.Arguments = "1 2 3"
link.Description = "test shortcut"
link.HotKey = "CTRL+ALT+SHIFT+X"
link.IconLocation = "wmplayer.exe,1"
link.TargetPath = "D:\Program Files\Windows Media Player\wmplayer.exe"
link.WindowStyle = 3
link.WorkingDirectory = "D:\Program Files\Windows Media Player\"
link.Save
End Sub