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]

VB.NET Komplett

Sie stehen vo der Aufgabe, individuelle Anwendungen für Windows zu schreiben. Hier ist VB.NET die optimale Sprache. Sie erlernt sich recht leicht und passt sich komplett in die .NET Umgebung von Microsoft ein. Nach der Schulung entwickeln Sie anwenderfreundliche Programme in VB.NET . Mit den objektorientierten Modellen in VB.NET erzeugen Sie außerdem wiederverwendbare Komponenten.

JavaScript für .NET-Entwickler

Sie sind .NET-Entwickler und nun stehen Sie vor der Aufgabe, JavaScript in Ihre Arbeit einzubinden. Die Schulung vermittelt Ihnen die JavaScript Grundlagen und die Funktionen der Scriptsprache. Sie wissen, wie objektorientierte Programmierung in JavaScript funktioniert und lernen abschließend Best Practicies Fälle kennen.

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!