Kategorien
CodeArchiv Dateien VBA

VBA Dateinamen vom Pfad

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 NameParameter Wert
strFullpathDer Dateiname inkl. Pfad

Rückgabe

Rückgabe TypRückgabe Wert
StringNur 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