creer un raccorcis sur le bureau

Modérateur Nombre de messages : 27 Age : 39 Date d'inscription : 04/12/2006

Ajoutez la référence Windows Script Host Object Model (wshom.ocx) à votre projet.

vb

Dim Wsh As New WshShell

DesktopPath = Wsh.SpecialFolders("Desktop")
Set Shortcut = Wsh.CreateShortcut(DesktopPath & "\Test.lnk")
With Shortcut
.TargetPath = App.EXEName
.Description = "Mon Programme"
.WindowStyle = 4
.Save
End With

Avec les anciennes versions de Wshom.ocx, la classe WshShell s'appelle IWshShell_Class.