function hb_DirBase() // para xHarbour
return Left( ExeName(), RAt( '\', ExeName() ) )
https://vivaclipper.wordpress.com/2014/02/23/hb_dirbase/
gracias a Enrico por el enlace
At( cCharSearch, cString )
RAt( cCharSearch, cString ) ---> por la derecha