Thomas Risi Softwareentwicklung
Addins - Datenbanklösungen - Komponenten - RTDServer - WebServices
GetFileName
In dieser Funktion wird der Dateiname aus einem vorgegebenen Dateipfad
ermittelt. Beachten Sie die Rekursion ...
Option Explicit
Public Function GetFileName(Path As String) As String
If Right(Path, 1) = "\" Then Exit Function
GetFileName = GetFileName(Left(Path, Len(Path) - 1)) & Right(Path, 1)
End Function
© 2001 -
by Thomas Risi