Information générale
Titre:
Strange work of CD command.
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
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement