Discussion :

[Invité]

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


Voici mon code

Code :

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

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

[ProgElecT]

Salut

bug

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

[Invité]

Salut ProgElect

Salut

Le code que tu nous fais voir ne contient que 9 lignes.
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

Et je viens de trouver la solution, que voici

Code :

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

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
Nota : j'ai juste un petit soucis avec l'icone du raccourcis, mais pas grave

[ProgElecT]

Ok

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