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

Messages postés
19
Date d'inscription
mercredi 19 mai 2010
Dernière intervention
29 juin 2013
- - Dernière réponse : cracken35
Messages postés
19
Date d'inscription
mercredi 19 mai 2010
Dernière intervention
29 juin 2013
- 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

Meilleure réponse
Messages postés
19
Date d'inscription
mercredi 19 mai 2010
Dernière intervention
29 juin 2013
3
Merci
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

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources a aidé 98 internautes ce mois-ci

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.