'Als erstes wird die Länge des Dateinamens bestimmt
 
Dim iLaenge As Integer 
iLaenge = Len (DateiName)
 
 
'Danach folge eine Abfrage ob es überhaupt eine Länge gibt?!?! 
'Trifft dies zu, so werden die letzten 3 Stellen des Strings gelesen
'Sie entsprechen des Dateitypen
 
Dim cZeichen As String 
cZeichen = Mid(DateiName, iLaenge - 3, 3)
 
'Nun soll diese DateiEndung verglichen werden mit Werten
'Als Beispiel eine TXT-DateiEndung
 
Dim iCompare As Integer
iCompare = strComp(cZeichen, "txt")

[: zerko :]