Kategorien
CodeArchiv Dateien VBA

VBA Dateipfad aus Dateiname extrahieren

Beschreibung

Um aus einem Dateinamen inkl. Pfad Angabe nur den Pfad zu bekommen, ist die nachfolgende Funktion entstanden.

Parameter

Paramter NameParameter Wert
strFullPath Dateiname inkl. Pfad

Rückgabe

Rückgabe TypRückgabe Wert
String Den Pfad der Datei

Beispiel

debug.Print GetPathFromFullPath("C:\daten\backup\wurstbrot.txt")
C:\daten\backup\

Code

Public Function GetPathFromFullPath(strFullpath As String) As String
	Dim intRight As Integer
	intRight = InStrRev(strFullpath, "\")
	If intRight > 0 Then
		GetPathFromFullPath = Left(strFullpath, intRight)
	Else
		GetPathFromFullPath = ""
	End If
End Function

Download