Peut-on lister les chemins complets + noms de fichiers à partir d'une liste
de raccourcis (Raccourci.lnk) dans un repertoire ?
Je ne trouve aucun renseignement à ce sujet.
Merci d'avance.
--
D.Schneider
Mail to: http://cerbermail.com/?CSPafqhXaE
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Alain CROS
Bonjour.
Avec Shell.Application, les raccourcis du bureau.
Sub RecupShortCutsurBureau() Dim ObjShell, ObjFolder Set ObjShell = CreateObject("Shell.Application") For Each ObjFolder In ObjShell.NameSpace(0).Items If ObjFolder.IsLink Then MsgBox ObjFolder.Path & vbNewLine & ObjFolder.GetLink.Path End If Next Set ObjFolder = Nothing Set ObjShell = Nothing End Sub
Alain CROS.
"DS" a écrit dans le message de news: #
Bonjour,
Peut-on lister les chemins complets + noms de fichiers à partir d'une liste de raccourcis (Raccourci.lnk) dans un repertoire ? Je ne trouve aucun renseignement à ce sujet. Merci d'avance. -- D.Schneider Mail to: http://cerbermail.com/?CSPafqhXaE
Bonjour.
Avec Shell.Application, les raccourcis du bureau.
Sub RecupShortCutsurBureau()
Dim ObjShell, ObjFolder
Set ObjShell = CreateObject("Shell.Application")
For Each ObjFolder In ObjShell.NameSpace(0).Items
If ObjFolder.IsLink Then
MsgBox ObjFolder.Path & vbNewLine & ObjFolder.GetLink.Path
End If
Next
Set ObjFolder = Nothing
Set ObjShell = Nothing
End Sub
Alain CROS.
"DS" <denis.pasdesapam.schneider@roche.pasdespam.com> a écrit dans le message de news: #W9TlFioDHA.2012@TK2MSFTNGP12.phx.gbl...
Bonjour,
Peut-on lister les chemins complets + noms de fichiers à partir d'une liste
de raccourcis (Raccourci.lnk) dans un repertoire ?
Je ne trouve aucun renseignement à ce sujet.
Merci d'avance.
--
D.Schneider
Mail to: http://cerbermail.com/?CSPafqhXaE
Sub RecupShortCutsurBureau() Dim ObjShell, ObjFolder Set ObjShell = CreateObject("Shell.Application") For Each ObjFolder In ObjShell.NameSpace(0).Items If ObjFolder.IsLink Then MsgBox ObjFolder.Path & vbNewLine & ObjFolder.GetLink.Path End If Next Set ObjFolder = Nothing Set ObjShell = Nothing End Sub
Alain CROS.
"DS" a écrit dans le message de news: #
Bonjour,
Peut-on lister les chemins complets + noms de fichiers à partir d'une liste de raccourcis (Raccourci.lnk) dans un repertoire ? Je ne trouve aucun renseignement à ce sujet. Merci d'avance. -- D.Schneider Mail to: http://cerbermail.com/?CSPafqhXaE
Frédéric Sigonneau
Bonsoir,
Une autre approche possible :
'==================== Sub test() Dim sLnk$ sLnk = "C:Documents and SettingsFSMenu Démarrer" & _ "ProgrammesAccessoiresBloc-notes.lnk" MsgBox CreateObject("WScript.Shell").CreateShortcut(sLnk).TargetPath End Sub '==================== FS -- Frédéric Sigonneau [MVP Excel - né un sans-culottide] Gestions de temps, VBA pour Excel : http://perso.wanadoo.fr/frederic.sigonneau Si votre question sur Excel est urgente, évitez ma bal !
Bonjour,
Peut-on lister les chemins complets + noms de fichiers à partir d'une liste de raccourcis (Raccourci.lnk) dans un repertoire ? Je ne trouve aucun renseignement à ce sujet. Merci d'avance. -- D.Schneider Mail to: http://cerbermail.com/?CSPafqhXaE
Bonsoir,
Une autre approche possible :
'==================== Sub test()
Dim sLnk$
sLnk = "C:Documents and SettingsFSMenu Démarrer" & _
"ProgrammesAccessoiresBloc-notes.lnk"
MsgBox CreateObject("WScript.Shell").CreateShortcut(sLnk).TargetPath
End Sub
'====================
FS
--
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://perso.wanadoo.fr/frederic.sigonneau
Si votre question sur Excel est urgente, évitez ma bal !
Bonjour,
Peut-on lister les chemins complets + noms de fichiers à partir d'une liste
de raccourcis (Raccourci.lnk) dans un repertoire ?
Je ne trouve aucun renseignement à ce sujet.
Merci d'avance.
--
D.Schneider
Mail to: http://cerbermail.com/?CSPafqhXaE
'==================== Sub test() Dim sLnk$ sLnk = "C:Documents and SettingsFSMenu Démarrer" & _ "ProgrammesAccessoiresBloc-notes.lnk" MsgBox CreateObject("WScript.Shell").CreateShortcut(sLnk).TargetPath End Sub '==================== FS -- Frédéric Sigonneau [MVP Excel - né un sans-culottide] Gestions de temps, VBA pour Excel : http://perso.wanadoo.fr/frederic.sigonneau Si votre question sur Excel est urgente, évitez ma bal !
Bonjour,
Peut-on lister les chemins complets + noms de fichiers à partir d'une liste de raccourcis (Raccourci.lnk) dans un repertoire ? Je ne trouve aucun renseignement à ce sujet. Merci d'avance. -- D.Schneider Mail to: http://cerbermail.com/?CSPafqhXaE
