Probleme avec les raccourcis bureau VB.NET [Résolu]

Signaler
Messages postés
19
Date d'inscription
mercredi 19 mai 2010
Statut
Membre
Dernière intervention
29 juin 2013
-
Messages postés
19
Date d'inscription
mercredi 19 mai 2010
Statut
Membre
Dernière intervention
29 juin 2013
-
Bonjour alors voila je vous expose un petit probleme .

je suis sous windows 7 avec vb.net 2012

je crée mon raccourcis avec le code ci dessous jusque la tout vas bien,

mais le probleme est que mon raccourcis ne fonctionne pas car la case Démmarer dans :

est vide . je la rentre manuellement sa fonctionne .

donc ma question est comment remplir cette case ?

merci d'avance

 Dim Bureau As IWshRuntimeLibrary.WshShell
        Dim Raccourci As IWshRuntimeLibrary.WshShortcut
        Dim VarTrav As String

        Bureau = New IWshRuntimeLibrary.WshShell

        ' Chemin et nom du raccourci 
        VarTrav = My.Computer.FileSystem.SpecialDirectories.Desktop & "\SmartSteam.lnk"
        Raccourci = Bureau.CreateShortcut(VarTrav)

        ' Cible 
        Raccourci.TargetPath = "C:\Games\SC2\SmartSteam.exe"
        Raccourci.RelativePath = "C:\Games\SC2"
        Raccourci.Description = "C:\Games\SC2"

        ' Enregistrement 
        Raccourci.Save()

1 réponse

Messages postés
19
Date d'inscription
mercredi 19 mai 2010
Statut
Membre
Dernière intervention
29 juin 2013
1
Désolé de vous avoir déranger j'est trouver se qui deconnais ;)

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim Bureau As IWshRuntimeLibrary.WshShell
        Dim Raccourci As IWshRuntimeLibrary.WshShortcut
        Dim VarTrav As String

        Bureau = New IWshRuntimeLibrary.WshShell

        ' Chemin et nom du raccourci 
        VarTrav = My.Computer.FileSystem.SpecialDirectories.Desktop & "\SmartSteam.lnk"
        Raccourci = Bureau.CreateShortcut(VarTrav)

        ' Cible 
        Raccourci.TargetPath = "C:\Games\SC2\SmartSteam.exe"
        Raccourci.WorkingDirectory = "C:\Games\SC2"

        ' Enregistrement 
        Raccourci.Save()
    End Sub