Salut,
j'ai trouvé ce code en cherchant a faire à peu près la même chose que toi. Peut être que ça pourras t'aider !
a+
akiuni
'
' but: accéder aux propriétés d'un raccourci
'
dim strStartMenu, oShellLink
set gwShell = CreateObject("WScript.Shell")
strStartMenu = gwshell.ExpandEnvironmentStrings("%AllUsersProfile%")
set oShellLink = gWshell.CreateShortcut(strStartMenu & "\Bureau\ZeRaccourci.lnk")
oShellLink.TargetPath = "C:\WINDOWS\system32\calc.exe"
oShellLink.WindowStyle = 1
oShellLink.IconLocation = "C:\zTools\Winsplit\WinSplit.exe, 0"
oShellLink.Description = "CALCULETTE "
oShellLink.WorkingDirectory = strDesktop
oShellLink.Save