5.


5. - 394


 
FILESEEK(),
SAVEFSEEK(),
.
 

 
. ,
. 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 + "\") //
//
//
RESTFSEEK(cSeerEnv) //
ELSE
? cSearchPath + cFile
ENDIF
ENDIF
cFile := FILESEEK() //
ENDDO
RETURN
 


See Also: FILESEEK()
SAVEFSEEK()

 


 


SAVEFSEEK()
FILESEEK().
------------------------------------------------------------------------------