Dtaeiname rausfinden?

[Stephan Boettcher]

Hallo,

Wie kann ich die Dateienung herausbekommen?

Wenn ich z.b. habe: test.jpg

dann soll ausgegeben werden: jpg

Danke euch!

 

[Shakie]

Mit Hilfe der String-Funktionen Mid$ und InstrRev:

Private Function Dateiendung(ByVal Dateiname As String) As String
    Dateiendung = Mid$(Dateiname, InStrRev(Dateiname, ".") + 1)
End Function

Aufruf:

MsgBox Dateiendung("Hallo.test")

 

[Stephan Boettcher]

ok Danke dir