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.
GFU-Schulungen  [Anzeige]

ASP.NET 2.0 und 3.5

Dieser Kurs vermittelt Ihnen alle Erweiterungen von Microsoft ASP.NET 2.0. Zu diesen zählen u. a. Data Bindung, Master Pages, und Security.

VB.NET 2017/2015/2013 Aufbau

Nach dieser Schulung können Sie mittels objektorientierter Modelle in VB.NET 2017/2015/2013 wiederverwendbare Elemente eigenständig erstellen.

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!