Feedback

VB - Pfad einer Datei-Verknüpfung ermitteln

Veröffentlicht von am 21.02.2007
(1 Bewertungen)
Mit folgendem Code ermittelt man den Zielpfad einer Datei-Verknüpfung.

Die "shell32.dll" muss als Verweis hinzugefügt werden.
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
Abgelegt unter pfad, verknüpfung, shelllink, shell, link, lnk.

1 Kommentare zum Snippet

Georg Riha schrieb am 05.04.2011:
Wobei unter Net Left und Mid ja nicht das wahre ist.

Ich würde es so schreiben:

 sPath = Path.GetDirectoryName(sLinkFile)
sFile = Path.GetFileName(sLinkFile)
 

Logge dich ein, um hier zu kommentieren!