Parsingfunktion – Pfadangabe

So wird´s gemacht!

Die Funktion GetPath trennt den Pfad von einem kompletten Dateipfad (strPath), wie zum Beispiel:
C:\Windows\System\mscdex.exe ab.
Das Ergebnis wird als String zurückgeliefert (in dem Beispiel würde das Ergebnis C:\Windows\System\ lauten. 

Sie benötigen hierzu auch die Funktion ReverseInStr aus dem Tipp
Stringmanipulation – Parsen – Textmanipulation (Link siehe unten) 

Public Function GetPath(strPath As String) As String

    Dim intPos As Integer

    intPos = ReverseInStr(0, strPath, "\")
    GetPath = Left(strPath, intPos) 

End Function

Weiterführende Links:

• Stringmanipulation – Parsen – Textmanipulation