Um den Dateinamen aus dem Dateinamen inkl. Pfad zu extrahieren ist diese kleine Funktion gedacht! Es wird im der Pfad inkl Dateiname übergeben und die Funktion gibt nur den Dateinamen zurück!
Parameter
Parameter Name
Parameter Wert
strFullpath
Der Dateiname inkl. Pfad
Rückgabe
Rückgabe Typ
Rückgabe Wert
String
Nur den Dateinamen. Wird kein Pfad gefunden „\“ dann wird der Inhalt aus strFullpath 1:1 wieder zurück gegeben.
Public Function GetFilenameFromFullPath(strFullpath As String) As String
Dim intRight As Integer
intRight = InStrRev(strFullpath, "\")
If intRight > 0 Then
GetFilenameFromFullPath = Right(strFullpath, Len(strFullpath) - intRight)
Else
GetFilenameFromFullPath = strFullpath
End If
End Function