Kategorien
CodeArchiv Dateien VBA

VBA Ermitteln der Datei Endung

Beschreibung

Oft braucht ich von einem Dateiname nur die Dateiendung (Suffix). Um dieses nicht jedes mal neu programmieren habe ich die nachfolgende Funktion erstellt.

Parameter

Parameter NameParameter Wert
strFile Dateiname inkl. Pfad für die zu überprüfende Datei

Rückgabe

Rückgabe TypRückgabe Wert
String Dateisuffix

Beispiel

debug.Print GetFileSuffixFromFilename("C:\wurstbrot.txt")
.txt

Code

Public Function GetFileSuffixFromFilename(strFile As String) As String
	Dim intRight As Integer
	intRight = InStrRev(strFile, ".")
	If intRight > 0 Then
		GetFileSuffixFromFilename = Right(strFile, Len(strFile) - intRight + 1)
	Else
		GetFileSuffixFromFilename = ""
	End If
End Function

Download