Créer un raccourcis dans le menu démarrer de Windows

Bonjour à tous,

Je débute et j'aimerai créer un raccourcis VBscript dans le menu démarrer de windows, mais j'ai une erreur :(
Pièce jointe 345405

Voici mon code

Code:

---

1 2 3 4 5 6 7 8 9 10

Option Explicit Dim WshShell, strDesktop, oMyShortCut   set WshShell = WScript.CreateObject("WScript.Shell" ) strDesktop = WshShell.SpecialFolders("AllUsersStartMenu" ) Set oMyShortCut = WshShell.CreateShortcut(strDesktop & "\Anniversaires IRC.lnk") oMyShortCut.TargetPath = "http://serveur/dossier/Anniversaires.asp" oMyShortCut.Hotkey = "" oMyShortCut.Save Wscript.Quit

---

Comme je n'ai jamais utilisé VBscript, qui peut me dire ou est le problème ?

Par avance merci ;)

Salut
:koi:

Citation:

---

Envoyé par Erreur signalée à la ligne 11

bug

---

Le code que tu nous fais voir ne contient que 9 lignes.:ouin:
Essais d’insérer après la ligne 6 MsgBox strDesktop pour voir si le chemin du dossier AllUsersStartMenu est bien renvoyé.

Salut ProgElect

Citation:

---

Envoyé par ProgElecT

Salut
:koi:
Le code que tu nous fais voir ne contient que 9 lignes.:ouin:
Essais d’insérer après la ligne 6 MsgBox strDesktop pour voir si le chemin du dossier AllUsersStartMenu est bien renvoyé.

---

Ben oui je sais, c'est pour ça que je ne comprenais pas l'erreur 8O:lol:

Et je viens de trouver la solution, que voici ;)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Option Explicit Dim WS, strDesktop, oMyShortCut ' Créer l'instance WScript set WS=WScript.CreateObject("WScript.Shell") ' En cas d'erreur on continue On Error Resume Next ' Définir le chemin d'accès strDesktop = WS.SpecialFolders("AllUsersStartMenu") & "\Programs\Startup\" ' Définir le nom du raccourci Set oMyShortCut = WS.CreateShortcut(strDesktop & "Anniversaires IRC.lnk") ' Définir le lien oMyShortCut.TargetPath = "http://serveur/dossier/Anniversaires.asp" oMyShortCut.Hotkey = "" oMyShortCut.Save     if err then msgbox err.description     Wscript.Quit

---

En tout cas merci de t'être intéressé à mon problème :ccool:
Nota : j'ai juste un petit soucis avec l'icone du raccourcis, mais pas grave

Ok

Citation:

---

Nota : j'ai juste un petit soucis avec l'icone du raccourcis, mais pas grave

---

Des fois que tu n'ai pas eu l'occasion de voir Comment créer un raccourci vers un site internet où un programme sur le bureau de windows