Discussion :

[bernardrustrel]

Bonjour à tous.
J'ai réalisé à l'aide du net ce petit script afin d'ouvrir une URL via Firefox. Mais voilà le raccourci se crée bien mais impossible d'ouvrir l'URL en question car il m'apparait le message suivant:
"Vérifiez que vous avez rentré le nom correct, puis réessayez."
D'autre part serait il possible de changer l’icône pour un autre et ce toujours par script, dans l'affirmative, comment?
D'avance je vous remercie de votre aide.
Cordialement
Bernard

Voici le script en question:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
dim Shell, DesktopPath, URL
dim CheminFF
dim ADR
ADR="https://www.google.fr/?gws_rd=ssl"
Set Shell = CreateObject("WScript.Shell")
 
DesktopPath = Shell.SpecialFolders("Desktop")
Set URL = Shell.CreateShortcut(DesktopPath & "\Google.URL")
CheminFF=("C:\Program Files (x86)\Mozilla Firefox\firefox.exe")
URL.TargetPath =  CheminFF + ADR
URL.Save

[hackoofr]

un coup d’œil ici ==> Comment créer un raccourci vers un site internet où un programme sur le bureau de windows

Code :

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

1
2
3
4
5
6
Dim Shell, DesktopPath, URL 
Set Shell = CreateObject("WScript.Shell") 
DesktopPath = Shell.SpecialFolders("Desktop") 
Set URL = Shell.CreateShortcut(DesktopPath & "\MonForumPreferé.URL") 
URL.TargetPath = "http://www.developpez.net/forums" 
URL.Save