Créer un raccourci sur le bureau avec Visual Basic .Net

Lors de la programmation d'application client, il arrive parfois d'avoir besoin de créer un raccourcie vers un exécutable X pour une raison ou une autre. Alors pour vous qui aurais besoin de ce genre de fonction, voici une petite astuce vous permettant de créer un raccourci sur le bureau (desktop) d'une machine à l'aide de Visual Basic.

CODE :

{Geshibot lang="vbnet"}
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 & "\NomDeMonRaccourci.lnk"
Raccourci = Bureau.CreateShortcut(VarTrav)
'   Cible
Raccourci.TargetPath = "C:\MonRepertoire\MonExecutable.exe"
'   Icône
Raccourci.IconLocation = "D:\MonRepertoire\ico\MonIcone.ico"
'    Enregistrement
Raccourci.Save()
{/Geshibot}

Ajouter cette page à votre Digg-Like préféré