Сообщение от 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")
|
Function GetFileExtension$(file$, div$ = ".")
Return Right$(file$,Len(file) - Instr(file, div))
End Function
Print GetFileExtension("A:\Directory\file.exe")
