Станислав С...кий,

Приходилось использовать:

CREATE TABLE e:\test FREE ( ;
name_file C(250),;
size_file I)

lcCurDir = GETDIR()
path_for_file = lcCurDir
SET DEFAULT TO '&lcCurDir'
CD '&lcCurDir'
Recurse(lcCurDir)
CHDIR &lcCurDir.

*!* ===========================================================
FUNCTION Recurse
*!* ===========================================================
LPARAMETERS pcDir
LOCAL lnPtr, lnFileCount, laFileList, lcDir, lcFile
CHDIR (pcDir)
DIMENSION laFileList[1]
*--- Read the chosen directory.
lnFileCount = ADIR(laFileList, '*.*', 'D', 1)
FOR lnPtr = 1 TO lnFileCount
IF 'D' $ laFileList[lnPtr, 5]
*--- Get directory name.
lcDir = laFileList[lnPtr, 1]
*--- Ignore current and parent directory pointers.
IF lcDir != '.' AND lcDir != '..'
path_for_file = SYS(5) + SYS(2003) + "\"
*--- Call this routine again.
Recurse(lcDir)
ENDIF
ELSE
path_for_file = SYS(5) + SYS(2003) + "\"
*--- Get the file name.
lcFile = RTRIM(laFileList[lnPtr, 1])
lnSize = laFileList[lnPtr, 2]
INSERT INTO test VALUES ( ;
path_for_file + lcFile, ;
lnSize)
ENDIF
ENDFOR
*--- Move back to parent directory.
CHDIR ..
path_for_file = SYS(5) + SYS(2003) + "\"