Как программно создать ярлык?
В первый раз я столкнулся с этой проблемой, когда заканчивал свой первый инсталлятор на ВБ. Я искал функцию, создающую ярлык в АПИ, но безуспешно.
Тогда я нашел способ делать это через WScriptShell:
Function
CreateShortcut(ShortcutPath$, FilePath$)
Dim WSO As Object: Set WSO = CreateObject("WScript.Shell")
Dim SHO As Object: Set SHO = WSO.CreateShortcut(ShortcutPath)
SHO.TargetPath = FilePath: SHO.Save
End Function
Dim WSO As Object: Set WSO = CreateObject("WScript.Shell")
Dim SHO As Object: Set SHO = WSO.CreateShortcut(ShortcutPath)
SHO.TargetPath = FilePath: SHO.Save
End Function
Вот пример использования:
CreateShortcut "C:\Проводник.LNK", "C:\Windows\explorer.exe"
Внимание! По неподтвержденной пока информации, данная функция вызывает Run-Time ошибку в Windows Vista.
Все функции (в том числе и эту) по работе с файловой системой вы можете найти в модуле FSO Examples. Его можно скачать в разделе «Исходники».
Оригинальная статья Влада Рубцова. https://vladikcomper.scanf.su/