Jak rychle zjistit jméno souboru z celé jeho cesty

Potřebujeme-li získat poslední výskyt nějakého znaku v řetězci, použijeme funkci InStrRev. Její syntaxe je následující:

x = InStrRev (řetězec, znak)

Její použití si ukážeme na příkladu jak získat z celé cesty k souboru pouze jeho název.

Už několikrát jsem tuto funkci napsanou viděl, ale vždy pouze s InStr. Připadá mi, že funkce InStrRev není moc používaná, přesto si myslím že je velice užitečná.

Zde je slibovaná funkce:

Function File_PathName(ByVal sFilePath As String) As String
 Dim a As Byte
 a = InStrRev(sFilePath, "")
 File_PathName = Right(s, Len(s) - a)
End Function