Parsingfunktion – Dateiname
Veröffentlicht am 30.12.2003
Diese Funktion ist das Gegenstück zu GetPath (strPath).
Sie liefert den Dateinamen als String zurück. Im Beispiel von C:\Windows\System\mscdex.exe
Sie benötigen hierzu auch die Funktion ReverseInStr aus dem Tipp
Stringmanipulation – Parsen – Textmanipulation (Link siehe unten)
Public Function GetFileName(strPath As String) As String
Dim intPos As Integer
intPos = ReverseInStr(0, strPath, "\")
GetFileName = Right(strPath, Len(strPath) - intPos)
End Function