creer un raccourci

comment peut on creer un raccourci du programme sur le bureau apres sa premiere utilisation ?

PDT (el diablo )

salut

va voir "ma" source :
http://www.vbfrance.com/article.aspx?Val=9156

voila

ShareVB


-------------------------------
Réponse au message :
-------------------------------

> comment peut on creer un raccourci du programme sur le bureau apres sa premiere utilisation ?
>
> PDT (el diablo )

J'ai également déposé un source d'un composant ocx qui fait çà
Di6FileTools
avec beaucuop d'autres fonctions Disques/Fichiers

Jean-Luc


-------------------------------
Réponse au message :
-------------------------------

> salut
>
> va voir "ma" source :
> http://www.vbfrance.com/article.aspx?Val=9156
>
> voila
>
> ShareVB
>
>
> -------------------------------
> Réponse au message :
> -------------------------------
>
> > comment peut on creer un raccourci du programme sur le bureau apres sa premiere utilisation ?
> >
> > PDT (el diablo )
>

moi j'utilise ca:
Dim WSHShell
Set WSHShell = CreateObject("WScript.Shell")

Dim monrac
' Création d'un objet raccourci
Set monrac = WSHShell.CreateShortcut("chemin de ton raccouci")

' Paramétrage des propriétés de l'objet raccourci et sauvegarde
With monrac
    .TargetPath = WSHShell.ExpandEnvironmentStrings("chemin de l'application vers la quelle pointe le raccourci")
    .Save
End With