Parsingfunktion – Dateiendung lesen
Veröffentlicht am 30.12.2003
Mit Hilfe der Parsingfunktion Dateiendungen lesen.
Die Funktion GetFileExtension liefert nur das Datei-Suffix (im Beispiel exe) zurück. Dies ist zum Beispiel sinnvoll, wenn eine bestimmte Datei-Operation nur auf eine definierte Dateimenge anzuwenden ist, oder nur bestimmte Dateien in eine Datenbank eingetragen werden sollen.
Sie benötigen hierzu auch die Funktion ReverseInStr aus dem Tipp
Stringmanipulation – Parsen – Textmanipulation (Link siehe unten)
Public Function GetFileExtension(strPath As String) As String
Dim intPos As Integer
intPos = ReverseInStr(strPath, ".")
GetFileExtension = Right(strPath, Len(strPath) - intPos)
End Function