- sub raccourci(chemin,cible,fenetre,touches,icone,description,RepTrav)
-
- set WshShell = WScript.CreateObject("WScript.Shell")
- set Racc = WshShell.CreateShortcut(chemin)
- Racc.TargetPath = cible
- Racc.WindowStyle = fenetre
- Racc.Hotkey = touches
- Racc.IconLocation = icone 'exemple: "wordpad.exe, 0"
- Racc.Description = description
- Racc.WorkingDirectory = RepTrav
- Racc.Save
-
- end sub
sub raccourci(chemin,cible,fenetre,touches,icone,description,RepTrav)
set WshShell = WScript.CreateObject("WScript.Shell")
set Racc = WshShell.CreateShortcut(chemin)
Racc.TargetPath = cible
Racc.WindowStyle = fenetre
Racc.Hotkey = touches
Racc.IconLocation = icone 'exemple: "wordpad.exe, 0"
Racc.Description = description
Racc.WorkingDirectory = RepTrav
Racc.Save
end sub