få fram filändelse

blev lite lång den här!
finns det nått smartare sätt att få ut filändelsen ur ett filnamn?

Select Right(   f.Filename, Len(f.Filename) - (Len(f.Filename)- Charindex('.', Reverse(f.Filename),0))-1  ) As Filetype
From tblFiles