CRÉATION ET MODIFICATION DE RACCOURCIS WINDOWS (.LNK) AVEC INTERFACE ISHELLLINK

Signaler
Messages postés
1172
Date d'inscription
jeudi 24 mai 2007
Statut
Membre
Dernière intervention
28 septembre 2013
-
Messages postés
1172
Date d'inscription
jeudi 24 mai 2007
Statut
Membre
Dernière intervention
28 septembre 2013
-
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

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