Création d'un raccourci en VBS

Bonjour,

Voila je dois créer un raccourci bureau de VLC en VBScript. Mais je ne sais pas du tout comment faire. Quelqu'un aurait-il un exemple de script de création de raccourci.
J'ai trouvé quelques codes mais j'ai toujours des messages d'erreurs.

Code:

---

1 2 3 4 5 6

Dim Shell, DesktopPath, INK Set Shell = CreateObject("WScript.Shell") DesktopPath = Shell.SpecialFolders("Desktop") Set Ink = Shell.CreateShortcut(DesktopPath & "\Vlc.Ink") Ink.TargetPath = "C:\Program Files\VideoLAN\VLC\vlc.exe" Ink.Save

---

J'ai le message d'erreur suivant :
Le chemin du raccourci doit finir par .ink ou .url


Merci d'avance

Code:

---

Set Ink = Shell.CreateShortcut(DesktopPath & "\Vlc.Ink")

---

Ici ton chemin fini par Ink et non ink, peut être est ce l'erreur.

Citation:

---

Envoyé par ced600

Code:

---

Set Ink = Shell.CreateShortcut(DesktopPath & "\Vlc.Ink")

---

Ici ton chemin fini par Ink et non ink, peut être est ce l'erreur.

---

en fait c'est lnk qu'il faut où en majuscule LNK ... comme link, lien ;)

lol

Logique comme réponse.
J'étais resté trop terre à terre sur le sujet et je faisais confiance aux informations données par le créateur du post : Grossière erreur :mouarf: