comment créer un raccourci sur le bureau dans vb.net sans programme d'installation

Je veux créer un raccourci sur le bureau pour exe fichier par le biais du programme.
Je ne veux pas utiliser l'installateur pour ce faire.
Peut un morceau de code dans le programme de le faire?Comment?

Si vous voulez en vb6 ici c'est comment le faire.

OriginalL'auteur vaichidrewar | 2011-04-06

  1. 10

    Chasler a répondu à cette question il y a quelques années ici DONC.

    Ajouter une référence à Windows Script Host Object Model

    Imports IWshRuntimeLibrary

Private Sub CreateShortCut(ByVal FileName As String, ByVal Title As String)
    Try
        Dim WshShell As New WshShell
        ' short cut files have a .lnk extension
        Dim shortCut As IWshRuntimeLibrary.IWshShortcut = DirectCast(WshShell.CreateShortcut(FileName, IWshRuntimeLibrary.IWshShortcut)

        ' set the shortcut properties
        With shortCut
            .TargetPath = Application.ExecutablePath
            .WindowStyle = 1I
            .Description = Title
            .WorkingDirectory = Application.StartupPath
            ' the next line gets the first Icon from the executing program
            .IconLocation = Application.ExecutablePath & ", 0"
            .Arguments = String.Empty
            .Save() ' save the shortcut file
        End With
    Catch ex As System.Exception
        MessageBox.Show("Could not create the shortcut" & Environment.NewLine & ex.Message, g_strAppTitleVersion, MessageBoxButtons.OK, MessageBoxIcon.Error)
    End Try
End Sub

    (Source)

    OriginalL'auteur Rhapsody

  2. 3

    Ce code fonctionne très bien

     Private Function CreateShortCut(ByVal TargetName As String, ByVal ShortCutPath As String, ByVal ShortCutName As String) As Boolean
    Dim oShell As Object
    Dim oLink As Object
    'you don’t need to import anything in the project reference to create the Shell Object

    Try

        oShell = CreateObject("WScript.Shell")
        oLink = oShell.CreateShortcut(ShortCutPath & "\" & ShortCutName & ".lnk")

        oLink.TargetPath = TargetName
        oLink.WindowStyle = 1
        oLink.Save()
    Catch ex As Exception

    End Try

End Function

    Crédits

    OriginalL'auteur Bernardo Ravazzoni