cracken35
Messages postés19Date d'inscriptionmercredi 19 mai 2010StatutMembreDernière intervention29 juin 2013
-
28 juin 2013 à 13:58
cracken35
Messages postés19Date d'inscriptionmercredi 19 mai 2010StatutMembreDernière intervention29 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()
cracken35
Messages postés19Date d'inscriptionmercredi 19 mai 2010StatutMembreDernière intervention29 juin 20131 28 juin 2013 à 14:18
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