Comment créer un raccourci

Question

Bonjour a tous

Je sais qu'il y a existe deja bcp de sources et de messages concernant les raccourcis mais je n'ai pas obtenu satisfaction : les fonctions ne marchaient pas (en tout cas chez moi).
Si qq'un sait comment créer le raccourci du programme "fichier" a l'adresse "adresse1", ca serait sympa qu'il m'éclaire.
Merci beaucoup

Fbrt

cs_oliver68 · Answer

salut,

j'ai trouvé ça dans mon windows :

' Script d'exemple pour l'environnement d'exécution de scripts Windows
'
' ------------------------------------------------------------------------
'               Copyright (C) 1996 Microsoft Corporation
'
' ------------------------------------------------------------------------
'
' Cet exemple montre comment utiliser un objet WshShell
' pour créer un raccourci sur le bureau.

L_Welcome_MsgBox_Message_Text   = "Cet exemple va créer un raccourci vers le Bloc-notes sur votre Bureau."
L_Welcome_MsgBox_Title_Text     = "Environnement d'exécution de scripts Windows"
Call Welcome()

' ********************************************************************************
' *
' * Méthodes relatives au raccourci.
' *

Dim WSHShell
Set WSHShell = WScript.CreateObject("WScript.Shell")

Dim MyShortcut, MyDesktop, DesktopPath

' Lecture du chemin du Bureau en utilisant l'objet WshSpecialFolders
DesktopPath = WSHShell.SpecialFolders("Desktop")

' Création d'un objet raccourci sur le Bureau
Set MyShortcut = WSHShell.CreateShortcut(DesktopPath & "\Raccourci vers le Bloc-notes.lnk")

' Paramétrage des propriétés de l'objet raccourci et sauvegarde
MyShortcut.TargetPath = WSHShell.ExpandEnvironmentStrings("%windir%
otepad.exe")
MyShortcut.WorkingDirectory = WSHShell.ExpandEnvironmentStrings("%windir%")
MyShortcut.WindowStyle = 4
MyShortcut.IconLocation = WSHShell.ExpandEnvironmentStrings("%windir%
otepad.exe, 0")
MyShortcut.Save

WScript.Echo "Un raccourci vers le Bloc-notes est maintenant présent sur votre Bureau."

' ********************************************************************************
' *
' * Bienvenue
' *
Sub Welcome()
    Dim intDoIt

    intDoIt =  MsgBox(L_Welcome_MsgBox_Message_Text,    _
                      vbOKCancel + vbInformation,       _
                      L_Welcome_MsgBox_Title_Text )
    If intDoIt = vbCancel Then
        WScript.Quit
    End If
End Sub

fbrt · Answer

merci mceric beaucoup

Fbrt

fbrt · Answer

Excuse moi  c'est encore moi, il me dit : 
Variable non définie : WScript

fbrt · Answer

Je m'excuse pour la file des messages que j'ai mis. j'ai fini par trouvé une petite solution : il suffit d'effacer les "WScript".
En plus, la fonction "SpecialFolders" va bcp me servir. Ici elle sert pour le bureau, mais je me suis renseigné et voici toutes les valeurs a mettre dans la fonction :

AllUsersDesktop 
AllUsersStartMenu 
AllUsersPrograms 
AllUsersStartup 
Favorites 
Fonts 
MyDocuments 
NetHood 
PrintHood 
Programs 
Récent 
SendTo 
StartMenu
Startup 
Templates 

Voila. Merci Oliver68, tu m'as trouvé mon bonheur :-)

A+
Encore merci

Fbrt

cs_oliver68 · Answer

de rien, j'ai rien fait d'autre que copier/coller un ex de script VBS du PC du boulot...
Poste ton code dans les sources, ça pourra servir, on sait jamais...

ciao.

rclsilver02 · Answer

j ai colle ceci dans un ComandBouton :

Dim WSHShell
Set WSHShell = WScript.CreateObject("WScript.Shell")
Dim MyShortcut, MyDesktop, DesktopPath
' Lecture du chemin du Bureau en utilisant l'objet WshSpecialFolders
DesktopPath = WSHShell.SpecialFolders("Desktop")
' Création d'un objet raccourci sur le Bureau
Set MyShortcut = WSHShell.CreateShortcut(DesktopPath & "\Raccourci vers le Bloc-notes.lnk")
' Paramétrage des propriétés de l'objet raccourci et sauvegarde
MyShortcut.TargetPath = WSHShell.ExpandEnvironmentStrings("%windir%
otepad.exe")
MyShortcut.WorkingDirectory = WSHShell.ExpandEnvironmentStrings("%windir%")
MyShortcut.WindowStyle = 4
MyShortcut.IconLocation = WSHShell.ExpandEnvironmentStrings("%windir%
otepad.exe, 0")
MyShortcut.Save


et il me di Objet requis au niveau de 


Set WSHShell = WScript.CreateObject("WScript.Shell")


 Comment résoudre ce pb ?

gerald24ans · Answer

MEME PROBLEME D ERREUR, AS TU TROUVE LA SOLUTION ?
SI OUI, MERCI DE ME DIRE COMMENT.

Gerald .... hé hé ....

rclsilver02 · Answer

non, toujours pas trouvé ...

rclsilver02 · Answer

si, je viens de trouver ... il faut remplacer la ligne ki foire c est adire celle ci : Set WSHShell = WScript.CreateObject("WScript.Shell")  par celle ci : Set WSHShell = CreateObject("Wscript.Shell")
 bonne prog a tous

Comment créer un raccourci

9 réponses

Discussions similaires