Probleme avec les raccourcis bureau VB.NETRésolu

Question

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()

cracken35 · Accepted Answer

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

Probleme avec les raccourcis bureau VB.NET

1 réponse

Votre réponse

Discussions similaires