RECUPERER LA CIBLE D'UN FICHIER RACCOURCI

Dim MonShell_obj As New Shell
Dim ElementDuRepertoire_obj As FolderItem
Dim MonRaccourci_obj As ShellLinkObject
Dim Repertoire_obj As Shell32.Folder

' Remplacer la ligne ci-dessous par votre fichier raccourci
Const CHEMIN_RACCOURCI_str = "c:"

' Récupération du répertoire
Set Repertoire_obj = MonShell_obj.NameSpace(CHEMIN_RACCOURCI_str)

' Controle de tout les éléments se trouvant dans le répertoire du raccourci
For Each ElementDuRepertoire_obj In Repertoire_obj.Items
    If ElementDuRepertoire_obj.IsLink Then
        Set MonRaccourci_obj = ElementDuRepertoire_obj.GetLink
        Debug.Print MonRaccourci_obj.Path
    End If
Next