get the file extension of a file

Is there a JAL command that I can get the filename and extension into
different variables? I see the FileSplitName but am looking really to
get the path, filename, extension separated.

No, there is no such command, but here is how a way out

1. Simpliest method, (we expect 3 characters extension)

Dim file_name, string, "c:\\somedir\\somefile.ext"
Dim ext, string
Right file_name, 3, ext
MessageBox ext

2.Easy method (any extension; but assume no other dots in the file and path names)

Dim file_name, string, "c:\\somedir\\somefile.someext"
Dim ext, string
GetToken ".", file_name, ext
Set ext, file_name
MessageBox ext

3. The always work method! (any extension, any path, file name)

Dim file_name, string, "c:\\somedir\\somefile.someext"
Dim ext, string
Dim bs_pos, number

// get last dot and the following string
Reverse file_name, file_name
GetToken ".", file_name, ext
Reverse ext, ext

// check if there are backslahes
InStr ext, "\\", 1, bs_pos
If bs_pos, NO_EXTENSION, DONE

NO_EXTENSION:
Set ext, ""

DONE:
MessageBox ext

: Is there a JAL command that I can get the filename and extension into
: different variables? I see the FileSplitName but am looking really to
: get the path, filename, extension separated.