CRÉATION ET MODIFICATION DE RACCOURCIS WINDOWS (.LNK) AVEC INTERFACE ISHELLLINK
Adn56
Messages postés
1172
Date d'inscription
jeudi 24 mai 2007
Statut
Membre
Dernière intervention
28 septembre 2013
-
12 janv. 2013 à 20:43
Adn56 Messages postés 1172 Date d'inscription jeudi 24 mai 2007 Statut Membre Dernière intervention 28 septembre 2013 - 12 janv. 2013 à 20:43
Adn56 Messages postés 1172 Date d'inscription jeudi 24 mai 2007 Statut Membre Dernière intervention 28 septembre 2013 - 12 janv. 2013 à 20:43
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/54854-creation-et-modification-de-raccourcis-windows-lnk-avec-interface-ishelllink
https://codes-sources.commentcamarche.net/source/54854-creation-et-modification-de-raccourcis-windows-lnk-avec-interface-ishelllink
12 janv. 2013 à 20:43
@ te lire CDLT ADN
en .NET ?
Sub creerRaccourcis(ByVal nom As String)
' Dim Bureau As IWshRuntimeLibrary.WshShell
' Dim Raccourci As IWshRuntimeLibrary.WshShortcut
' Bureau = New IWshRuntimeLibrary.WshShell
' Chemin et nom du raccourci
' Dim C_nom = My.Settings.c_raccourcis & "" & nom & ".lnk"
' Raccourci = CType(Bureau.CreateShortcut(Nom), IWshRuntimeLibrary.WshShortcut)
' Cible à exécuter
' Raccourci.TargetPath = "c:\Program Files\ldf\ldf.exe"
' Icône à utiliser
'Raccourci.IconLocation = "C:\WINLDF\Icone\euro.ico"
' Enregistrement du raccourci
'Raccourci.Save()
End Sub 'en .NET
Et celui que j'utilise en VBA
Sub Creer_Raccourcis(ByVal nom As String, ByVal cible As String)
Dim scrHst As Object = CreateObject("WScript.Shell")
Dim lien As Object
lien = scrHst.CreateShortcut(My.Settings.c_raccourcis & "" & nom & ".lnk")
lien.WorkingDirectory = My.Settings.c_raccourcis
lien.TargetPath = cible
' icone du lien (supprimer pour icone de la cible)
lien.IconLocation = "C:\windows\system32\SHELL32.dll,87"
' fin
lien.Save()
lien = Nothing
scrHst = Nothing
End Sub 'en VBA