5.


5. - 395


SAVEFSEEK() --> cFileSeekEnvironment
 

 
cFileSeekEnvironment - , ,
RESTFSEEK().
 

 
,
FILESEEK(). ,
, FILESEEK()
. ,
RESTFSEEK() ,
.
 

 
.
.
 

 
. ,
. GETFILES()
:
 
GetFiles("\") //
//
RETURN
 
PROCEDURE GetFiles(cPath)
LOCAL cFile, cSeekEnv //
// FILESEEK()
? //
//
cFile := FILESEEK(cPath + "*.*", 63) //
//
DO WHILE .NOT. EMPTY(cFile)
IF cFile <> "." // ".." "." -
IF ISBIT(FILEATTR(), 5) // ?
cSeekEnv := SAVESEEK() //
GetFiles(cPath + cFile + "\") //