Pfad einer Datei-Verknüpfung ermitteln

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

Public Function LeseShellLinkPath(ByVal datei As String) As String

        Dim oShell As New Shell32.Shell
        Dim oFolder As Shell32.Folder
        Dim oLink As Shell32.ShellLinkObject

        Dim sPath As String
        Dim sFile As String

        Dim sLinkFile As String = datei

        ' Ordner und Dateiname extrahieren
        sPath = Left$(sLinkFile, InStrRev(sLinkFile, "\") - 1)
        sFile = Mid$(sLinkFile, InStrRev(sLinkFile, "\") + 1)

        oFolder = oShell.NameSpace(sPath)
        oLink = oFolder.Items.Item(sFile).GetLink

        Return oLink.Path

    End Function