RECUPERER LE FICHIER POINTÉ PAR UN RACCOURCIS raccourcis, resolvelink, link, recuperer, Source N°39476

Information sur la source

Catégorie :Système Classé sous : raccourcis, resolvelink, link, recuperer Niveau : Débutant Date de création : 07/09/2006 Vu : 2 366

Auteur : Renfield

Ecrire un message privé

Ce membre participe au partage de revenus publicitaires

Note :
Aucune note

Commentaire sur cette source (8)

Ajouter un commentaire et/ou une note

Description

Dans une appli, je donne le choix a l'utilisateur de spécifier un fichier MDB.
il m'est avantageux de le laisser selectionner un raccourcis.

cette petite fonction permet de récupérer le chemin du fichier pointé par le LNK.

Source

Public Function ResolveShortcut(ByRef vsLnkFilePath As String) As String
Dim hFile As Integer
Dim nByteBuffer As Byte
Dim nLongBuffer As Long
Dim nIntBuffer As Integer
Dim nPosFLI As Long '# Position de départ de la FLI (File Location Info)
Dim nOffset_BasePath As Long
Dim nOffset_Network As Long
Dim nOffset_Remaining As Long
hFile = FreeFile
Open vsLnkFilePath For Binary Access Read As hFile
Get hFile, 1, nLongBuffer
'# les fichiers LNK commencent par un 'L'
If nLongBuffer = 76 Then
'# On skippe le GUID
Seek hFile, 21
'# On récupère les flags
Get hFile, , nLongBuffer
'# si la Shell Item ID liste est présente...
If nLongBuffer And 1 Then
Seek hFile, 77
'# On récupère la taille totale de la liste
Get hFile, , nIntBuffer
'# et on décale d'autant le pointeur de lecture.
nPosFLI = 79 + nIntBuffer
Else
nPosFLI = 77
End If
'# On skippe la taille, les flags, et les Local Volume Info
Seek hFile, nPosFLI + 16
'# Offset du chemin, si fichier local
Get hFile, , nOffset_BasePath
'# Offset du repertoire réseau
Get hFile, , nOffset_Network
'# Offset du reste (éventuel) du nom du fichier
Get hFile, , nOffset_Remaining
If nOffset_BasePath Then
Seek hFile, nPosFLI + nOffset_BasePath
Do
Get hFile, , nByteBuffer
If nByteBuffer <> 0 Then
ResolveShortcut = ResolveShortcut & ChrW$(nByteBuffer)
Else
Exit Do
End If
Loop
ElseIf nOffset_Network Then
Seek hFile, nPosFLI + nOffset_Network + &H14
Do
Get hFile, , nByteBuffer
If nByteBuffer <> 0 Then
ResolveShortcut = ResolveShortcut + ChrW$(nByteBuffer)
Else
Exit Do
End If
Loop
ResolveShortcut = ResolveShortcut & "\"
End If
If nOffset_Remaining Then
Seek hFile, nPosFLI + nOffset_Remaining
Do
Get hFile, , nByteBuffer
If nByteBuffer <> 0 Then
ResolveShortcut = ResolveShortcut + ChrW$(nByteBuffer)
Else
Exit Do
End If
Loop
End If
Else
ResolveShortcut = vsLnkFilePath
End If
Close hFile
End Function

Public Function ResolveShortcut(ByRef vsLnkFilePath As String) As String
Dim hFile As Integer
Dim nByteBuffer As Byte
Dim nLongBuffer As Long
Dim nIntBuffer As Integer
Dim nPosFLI As Long  '# Position de départ de la FLI (File Location Info)
Dim nOffset_BasePath As Long
Dim nOffset_Network As Long
Dim nOffset_Remaining As Long

     hFile = FreeFile
     Open vsLnkFilePath For Binary Access Read As hFile
        Get hFile, 1, nLongBuffer
        '# les fichiers LNK commencent par un 'L'
        If nLongBuffer = 76 Then
            '# On skippe le GUID
            Seek hFile, 21

            '# On récupère les flags
            Get hFile, , nLongBuffer

            '# si la Shell Item ID liste est présente...
            If nLongBuffer And 1 Then
                Seek hFile, 77
                '# On récupère la taille totale de la liste
                Get hFile, , nIntBuffer
                '# et on décale d'autant le pointeur de lecture.
                nPosFLI = 79 + nIntBuffer
            Else
                nPosFLI = 77
            End If
        
            '# On skippe la taille, les flags, et les Local Volume Info
            Seek hFile, nPosFLI + 16
            '# Offset du chemin, si fichier local
            Get hFile, , nOffset_BasePath
            '# Offset du repertoire réseau
            Get hFile, , nOffset_Network
            '# Offset du reste (éventuel) du nom du fichier
            Get hFile, , nOffset_Remaining

            If nOffset_BasePath Then
                Seek hFile, nPosFLI + nOffset_BasePath
                Do
                    Get hFile, , nByteBuffer
                    If nByteBuffer <> 0 Then
                        ResolveShortcut = ResolveShortcut & ChrW$(nByteBuffer)
                    Else
                        Exit Do
                    End If
                Loop
            ElseIf nOffset_Network Then
                Seek hFile, nPosFLI + nOffset_Network + &H14
                Do
                    Get hFile, , nByteBuffer
                    If nByteBuffer <> 0 Then
                        ResolveShortcut = ResolveShortcut + ChrW$(nByteBuffer)
                    Else
                        Exit Do
                    End If
                Loop
                ResolveShortcut = ResolveShortcut & "\"
            End If
            If nOffset_Remaining Then
                Seek hFile, nPosFLI + nOffset_Remaining
                Do
                    Get hFile, , nByteBuffer
                    If nByteBuffer <> 0 Then
                        ResolveShortcut = ResolveShortcut + ChrW$(nByteBuffer)
                    Else
                        Exit Do
                    End If
                 Loop
            End If
        Else
            ResolveShortcut = vsLnkFilePath
        End If
    Close hFile
End Function

Conclusion

Je sais que des codes existent sur VbFrance, mais cette version ne récupère que ce qui est nécessaire, et ne nécessite pas de dépendance externe (TLB pour IShellLink)

Sources du même auteur

Toutes les sources de Renfield

Sources de la même categorie

Toutes les sources de la catégorie Système

Sources en rapport avec celle ci

Commentaires

Commentaire de EBArtSoft le 07/09/2006 19:20:00 administrateur CS

Codyx.org ? ;)
Commentaire de BruNews le 07/09/2006 19:33:03 administrateur CS

Ah mais c'est bien ça, je n'avais jamais perdu de temps à fouiller l'intérieur d'un lnk vu que IShellLink en C va impec.
Vais essayer de remettre ça en C, si prob de compréhension de ton VB, je demanderai.
Commentaire de EBArtSoft le 07/09/2006 20:11:19 administrateur CS

BruNews> Tu trouveras un jolie PDF la dessus ici
=> http://www.wotsit.org/download.asp?f=shortcut

@+
Commentaire de BruNews le 07/09/2006 20:36:33 administrateur CS

IMPEC, merci.
Commentaire de Renfield le 07/09/2006 22:14:50 administrateur CS

je l'ai "Snippeté" en même temps ^^

pour la doc, je suis parti du même fichier (vive wotsit)
Commentaire de MadM@tt le 08/09/2006 15:30:23

www.wotsit.org > génial ce site c'est trop le genre d'infos que je galère à trouver
Sinon logiquement, il serait possible de trouver toutes les infos d'un raccourci en procédant pareil ? (histoire de se passer de IShellLink) En tout cas ce code est déjà bien pratique ^^
Commentaire de Renfield le 08/09/2006 15:42:11 administrateur CS

possible, oui, mais je ne vais pas m'y coller.

pas un ersatz de flemme, mais je vais finallement surement passer par IShellLink, car certains raccourcis sont mal analysés (Office 2003, par exemple)...

en même temps, l'info sur wotsit n'est pas une info officielle, et elle date un peu.
Commentaire de EBArtSoft le 08/09/2006 16:27:46 administrateur CS

De plus MS a bien spécifier qu'il ne fallait s'attarder sur le format des LNK car il change a chaque version de windows. Autant utiliser IShellLink qui est libre et restera totalement compatible.

@+