These 2 procedures I modified from Tastrade project. See comment near CD command.

FUNCTION LTMsgBox
PARAMETERS cMessageText, nDialogBoxType, cTitleBarText
LOCAL nRetVal, oappMsgBox

= SetPath()

nRetVal = 0

oappMsgBox = CREATEOBJECT( [zLTMsgBox] )
nRetVal = oappMsgBox.DoFormRetVal(cMessageText, nDialogBoxType, cTitleBarText)

RETURN nRetVal

FUNCTION SetPath()
LOCAL lcSys16, lcProgram, lnTimeOut

clear

lcProgram = SYS(16)
lcProgram = SUBSTR( lcProgram, AT( [:], lcProgram ) - 1 )
lcProgram = LEFT( lcProgram, RAT( [\], lcProgram ) - 1 )
SET DEFAULT TO ( lcProgram )

CD ..

* Sometimes this command don't change directory. Then I insert * command ? after CD command this one change directory properly. * Some miliseconds for change directory or any other problem?

SET PATH TO BITMAPS, CLASSES, PROGRAMS
SET CLASSLIB TO zFoxTools