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

cracken35 19 Messages postés mercredi 19 mai 2010Date d'inscription 29 juin 2013 Dernière intervention - 28 juin 2013 à 13:58 - Dernière réponse : cracken35 19 Messages postés mercredi 19 mai 2010Date d'inscription 29 juin 2013 Dernière intervention
- 28 juin 2013 à 14:18
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()
Afficher la suite 

Votre réponse

1 réponse

cracken35 19 Messages postés mercredi 19 mai 2010Date d'inscription 29 juin 2013 Dernière intervention - 28 juin 2013 à 14:18
+3
Utile
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
Cette réponse vous a-t-elle aidé ?  
Commenter la réponse de cracken35

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.