Information générale
Catégorie:
Fonctions Windows API
Michael,
Here is some code that I use:
WshShell = CreateObject("WScript.Shell")
strDesktop = WshShell.SpecialFolders("Desktop")
oShellLink = WshShell.CreateShortcut(strDesktop + "\RBOM Upload.lnk")
oShellLink.TargetPath = "\\SORL0000\GROUPS\GSD\PUBLIC\MATCNTL\BOM\RBOMUpload.EXE"
oShellLink.WindowStyle = 1
* oShellLink.Hotkey = "CTRL+SHIFT+F"
oShellLink.IconLocation = "\\SORL0000\GROUPS\GSD\PUBLIC\MATCNTL\BOM\RBOMUpload.EXE, 0"
oShellLink.Description = "RBOM Upload"
oShellLink.WorkingDirectory = "C:\Temp"
oShellLink.Save
Précédent
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement