NAME=GetFilename
AUTHOR=
ITEM=function GetFilename$(fileName$)
DESCRIPTION=Function returns the file name only from a specified full path.
OUTSIDE CODE=

function GetFilename$(fileName$)
    i = len(fileName$)
    while mid$(fileName$, i, 1) <> "\" and mid$(fileName$, i, 1) <> ""
        i = i-1
    wend
    GetFilename$ = mid$(fileName$, i+1)
end function
