NAME=GetPath
AUTHOR=
ITEM=function GetPath$(fileName$)
DESCRIPTION=Function returns path only without the file name.
OUTSIDE CODE=

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

