Naviguer en vbs
Résolu
Oxygene34
Messages postés
52
Date d'inscription
mardi 27 janvier 2009
Statut
Membre
Dernière intervention
4 avril 2009
-
4 avril 2009 à 10:39
Oxygene34 Messages postés 52 Date d'inscription mardi 27 janvier 2009 Statut Membre Dernière intervention 4 avril 2009 - 4 avril 2009 à 13:07
Oxygene34 Messages postés 52 Date d'inscription mardi 27 janvier 2009 Statut Membre Dernière intervention 4 avril 2009 - 4 avril 2009 à 13:07
2 réponses
cs_JMO
Messages postés
1854
Date d'inscription
jeudi 23 mai 2002
Statut
Membre
Dernière intervention
24 juin 2018
27
4 avril 2009 à 11:17
4 avril 2009 à 11:17
Bonjour,
'création raccourci bureau
'voir
Microsoft Windows Script Host tutorial pour les propriétés
Set WshShell = WScript.CreateObject("WScript.Shell")
strDesktop = WshShell.SpecialFolders("Desktop")
set oShellLink = WshShell.CreateShortcut(strDesktop & "\test_MonRaccourci.lnk")
oShellLink.TargetPath = WScript.ScriptFullName
oShellLink.WindowStyle = 1
oShellLink.Hotkey = "Ctrl+Alt+e"
oShellLink.IconLocation = "notepad.exe, 0"
oShellLink.Arguments = "1 2 3"
oShellLink.Description = "Icone bureau"
oShellLink.WorkingDirectory = strDesktop
oShellLink.Save
jean-marc
'création raccourci bureau
'voir
Microsoft Windows Script Host tutorial pour les propriétés
Set WshShell = WScript.CreateObject("WScript.Shell")
strDesktop = WshShell.SpecialFolders("Desktop")
set oShellLink = WshShell.CreateShortcut(strDesktop & "\test_MonRaccourci.lnk")
oShellLink.TargetPath = WScript.ScriptFullName
oShellLink.WindowStyle = 1
oShellLink.Hotkey = "Ctrl+Alt+e"
oShellLink.IconLocation = "notepad.exe, 0"
oShellLink.Arguments = "1 2 3"
oShellLink.Description = "Icone bureau"
oShellLink.WorkingDirectory = strDesktop
oShellLink.Save
jean-marc
Oxygene34
Messages postés
52
Date d'inscription
mardi 27 janvier 2009
Statut
Membre
Dernière intervention
4 avril 2009
4 avril 2009 à 13:07
4 avril 2009 à 13:07
Merci
