Beschreibung
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. |
Beispiel
debug.Print GetFilenameFromFullPath("c:\test\test.txt") test.txt
Code
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
Download

VBA GetFilenameFromFullPath
1 Datei(en) 0.33 KB