Parsingfunktion – Pfadangabe
Veröffentlicht am 30.12.2003
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