Buongiorno ragazzi,
avrei bisogno di qualche consiglio per inserire un collegamento alla mia applicazione nel menu start. Sono riuscito a creare un collegamento al Desktop con questo codice:
Ma non riesco a fare la stessa cosa con il menu start.codice:Dim sShortcutPath As String, sExtension As String Dim fs As New FileSystemObject Dim oShell As New WshShell Dim Desk As String = My.Computer.FileSystem.SpecialDirectories.Desktop sShortcutPath = Desk If sShortcutPath <> "" Then sExtension = fs.GetExtensionName(sShortcutPath) Select Case sExtension Case "lnk" Dim oShortcut As WshShortcut oShortcut = oShell.CreateShortcut(sShortcutPath) Case "url" Dim oURLShortcut As WshURLShortcut oURLShortcut oShell.CreateShortcut(sShortcutPath) Case Else MsgBox("Si è verificato un errore nel tentativo di creare il collegamento.", MsgBoxStyle.Critical) Exit Sub End Select End If
Come potrei fare?
Grazie

Rispondi quotando