cs_GeorgesDeLajungle
Messages postés29Date d'inscriptionlundi 22 mars 2004StatutMembreDernière intervention22 juin 20071 28 sept. 2006 à 16:32
Bonjour, pour pouvoir créer un raccourci, tu dois intégrer en référence l'objet COM Windows Script Host Model Object.
Une fois cela fais tu déclares comme dans l'exemple :
Dim a As New IWshRuntimeLibrary.WshShell
Dim b As IWshRuntimeLibrary.WshShortcut
b = a.CreateShortcut("c:\test.lnk")
b.TargetPath = "c:\dev1.pdf"
b.Save()
cyberoumpahpah
Messages postés2Date d'inscriptionlundi 26 septembre 2005StatutMembreDernière intervention28 septembre 2006 28 sept. 2006 à 16:45
Merci.
Et pour créer le raccourcis directement sur le bureau (au cas où ca intéresse quelqu'un), ajouter avant :
Dim Shell = New IWshRuntimeLibrary.WshShell
Dim DesktopDir As String = CType(Shell.SpecialFolders.Item("Desktop"), String)
Puis au lieu de :
b = a.CreateShortcut("c:\test.lnk")
Mettre :
b = a.CreateShortcut( DesktopDir + "\text.lnk" )