Créer le raccourci de l'application sur le bureau

Contenu du snippet

 '   Création du raccourci sur le bureau
'   Demande l'ajout de la référence wshom.ocx depuis Winnt\System32
Dim Bureau As IWshRuntimeLibrary.WshShell
Dim Raccourci As IWshRuntimeLibrary.WshShortcut
Dim VarTrav As String
Bureau = New IWshRuntimeLibrary.WshShell
'   Chemin et nom du raccourci
VarTrav = My.Computer.FileSystem.SpecialDirectories.Desktop & "\Saisie listes VB.lnk"
Raccourci = Bureau.CreateShortcut(VarTrav)
'   Cible
Raccourci.TargetPath = "D:\SaisieListes\SaisieListes.exe"
'   Icône
Raccourci.IconLocation = "D:\SaisieListes\INI\BarreAcierS500.ico"
'    Enregistrement
Raccourci.Save()


Compatibilité : VB 2005

Disponible dans d'autres langages :

A voir également

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.