Ce code sert à créer des raccourcis LNK et à en modifier les paramètres. Il permet aussi de lire les liens vers MSI (par exemple, les liens d'Office)
Ce code se sert de l'interface IShellLink pour intéragir avec le shell pour éditer les fichier .lnk
La cible du raccourci doit être valide pour pouvoir créer le raccourci.
Conclusion :
N'hésitez pas à commenter et à noter !
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
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.