forceext(justfname(dbf()), '')
>function stripext (tcPath)
>
>local lcStem, i, lnExt
>
>lnExt = null
>
>for i = len(tcPath) to 1 step -1
>
*** added forward slash
> if substr(tcPath, i, 1) $ "/:\"
> exit
> endif
>
> if isnull(lnExt) and substr(tcPath, i, 1) = "."
> lnExt = i
> endif
>
>endfor
>
>if isnull(lnExt)
> lcStem = substr(tcPath, i + 1)
>else
> lcStem = substr(tcPath, i + 1, lnExt - (i + 1))
>endif
>
>return lcStem
>
>