Use this FiveWin CurDir():
function FWCurDir()
local cExeName := GetModuleFileName( 0 )
return SubStr( cExeName, 1, RAt( "\", cExeName ) - 1 )