Création et modification de raccourcis windows (.lnk) avec interface ishelllink

Soyez le premier à donner votre avis sur cette source.

Vue 3 858 fois - Téléchargée 554 fois

Description

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 !

Codes Sources

A voir également

Ajouter un commentaire

Commentaire

Adn56
Messages postés
1172
Date d'inscription
jeudi 24 mai 2007
Statut
Membre
Dernière intervention
28 septembre 2013
1
Bonsoir ShareVB, ton code m'a filer une migraine (bon j'suis trop léger pour le piger en vrai ^^) mais juste une question qu'elle différence avec ces deux types de codage ? parceque moi je suis pas capable de le savoir, mais je sais qu'il marche ;)
@ 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.