' 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()