Всё. Надоело
это максимум.
Global r,TextQ$,Instr_r
Function GetFileExtension$(file$, div$ = ".")
While True
r=r+1
Instr_r=Instr(file$,div$,r)
If Not Instr_r =0
TextQ=Right$(file$,(Len(file$) - Instr_r))
EndIf
If Instr_r =0 Exit
Wend
Return TextQ
End Function
Print GetFileExtension("A:\Directory\file.exe")