Epingler un programme au menu démarrer

Citation:

Envoyé par Raikko68

Bonjour à toutes et à tous
Je suis sous windows xp et j'aimerais à l'aide d'un fichier vbs arriver à épingler un raccourci qui se trouve sur mon bureau dans la barre de menu démarrer de windows.
Quelqu'un peut-il m'aider car j'ai beau chercher et je ne trouve rien qui fonctionne?
Merci d'avance pour votre aide

:salut: et Bienvenue au Club :P
Bon je ne sais pas si ce script va vous aider ou non mais tu peut l'essayer pour voir comment on fait un raccourci sur le bureau de l’application Calculatrice qui se trouve dans le dossier système32 avec changement de l'icone du raccourci :ccool:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 sub Shortcut dim shell,startupPath,Bureau Set Shell = CreateObject("WScript.Shell") 'startupPath = Shell.SpecialFolders("startup") 'dossier démarrage Bureau = Shell.SpecialFolders("Desktop") ' le bureau Set FSO = CreateObject("Scripting.FileSystemObject") system32=FSO.GetSpecialFolder(1) 'si votre programme se trouve dans le dossier system32 par exemple la calculatrice "calc.exe et tu peut le changer bien sûr Set link = Shell.CreateShortcut(Bureau & "\Calculatrice.lnk") link.Description = "Calculatrice" link.IconLocation = "explorer.exe, 0" 'on peut ici changer l'icon pour le raccourci link.TargetPath = system32 & "\calc.exe" link.WorkingDirectory = system32 link.Save end sub Call Shortcut