Lien hypertexte avec vbscript

j'aimerai créez un script en vbscript permettant de créer dans mon
dossier un raccourci, appelé « Aide VB script » permettant d'aller sur le site "http://msdn.microsoft.com/en-us/library/windows/desktop/aa394084%28v=vs.85%29.aspx"

on m'as donner comme direction d'utiliser les WSHShell

quelqu'un pourrai m'aider s'il vous plait

:salut: et bienvenue dans DVP :ccool:
Dans la :faq: ==> Comment créer un raccourci vers un site internet où un programme sur le bureau de windows

Citation:

---

Envoyé par hackoofr

:salut: et bienvenue dans DVP :ccool:
Dans la :faq: ==> Comment créer un raccourci vers un site internet où un programme sur le bureau de windows

---

il m'affiche cette objet ne gère pas cette propriété ou cette methode ' workingdirectory'

Code:

---

1 2 3 4 5 6 7

Dim Shell, DesktopPath, URL Set Shell = CreateObject("WScript.Shell") DesktopPath = Shell.SpecialFolders("Desktop") Set URL = Shell.CreateShortcut(DesktopPath & "\MonForumPreferé.URL") URL.TargetPath = "http://msdn.microsoft.com/en-us/library/windows/desktop/aa394084%28v=vs.85%29.aspx" URL.WorkingDirectory = "c:\tmp" URL.Save

---

:salut:
Effectivement, vous avez totalement raison,et il faut donc, mettre à jour la :faq:
Essayez ce

Code:

---

1 2 3 4 5 6 7

Dim Shell, DesktopPath, URL Set Shell = CreateObject("WScript.Shell") DesktopPath = Shell.SpecialFolders("Desktop") Set URL = Shell.CreateShortcut(DesktopPath & "\Aide VB script.URL") URL.TargetPath = "http://msdn.microsoft.com/en-us/library/windows/desktop/aa394084%28v=vs.85%29.aspx" URL.Save MsgBox "Le raccourci internet a été crée sur votre bureau !",64,"Le raccourci internet a été crée sur votre bureau !"

---