Discussion :

[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

[hackoofr]

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

et Bienvenue au Club
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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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