Как создать ярлык через Visual Basic 2010
Я сделал программу для Windows и пишу для неё установщик. И столкнулся с проблемой: надо создать ярлык. Нашёл, что мне поможет: библиотека Interop.IWshRuntimeLibrary. (ссылка на скачивание). С кодом чуть-чуть сложнее:
TryВ TextBox1 должно быть указано, где лежит ярлык, в TextBox2 - его имя (ну как имя файла), в TextBox3 - файл, на который этот ярлык будет ссылаться. При ошибке программа выдаст сообщение с иконкой ошибки.
Dim k As String = TextBox1.Text
Dim WshShell As New WshShell
Dim shortcut As WshShortcut
shortcut = WshShell.CreateShortcut(TextBox1.Text & TextBox2.Text & ".lnk")
With shortcut
.TargetPath = TextBox3.Text
.WindowStyle = 1
.IconLocation = TextBox3.Text & ", 0"
.Arguments = ""
.Save()
End With
WshShell = Nothing
shortcut = Nothing
Catch
MsgBox("Не получилось!", vbCritical)
End Try
Это работает!
А вот видео:
