Discussion :

[skyrex]

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

[hackoofr]

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

[skyrex]

et bienvenue dans DVP
Dans la ==> 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 :

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

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

[hackoofr]

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

Code :

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

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 !"