[Zeonic]

Спустя 10 лет.

Function GetFileExtension$(file$, div$ = ".")
   Return Mid(file, Instr(file, div) + 1, Len(file) - Instr(file, div))
End Function

Print GetFileExtension("A:\Directory\file.exe")