Добрый день!
Поскажите методику поиска файлов в каталогах и подкаталогах.
Есть подозрение, что надо использовать рекусивную функцию с FindFirst, FindNext, SetCurrentDirectory?
Заранее спасибо.

Спасибо! Получился поиск всех файлов со стартовой директории + по всем поддиректориям.

integer i,i1,j,j1,li_FileNum,loginsert,logerr
long l1,l,l2
string s[],name,input,pole[],poles[],rez[]
char c[]
boolean rtn
i = 1
sss4 =dir
ls_curdir =SSS4 + "*.*"
i22 =FindFirstFileA(ls_curdir,ss2)
DO WHILE FindNextFileA(i22,ss2)
IF ss2.i1= 16 and ss2.i9 <> '.' and ss2.i9 <> '..' THEN
s = dir + ss2.i9 i++
elseif ss2.i9 <> '.' and ss2.i9 <> '..' THEN
count++
END IF
LOOP
IF upperbound(s)> 0 THEN
for i= 1 to upperbound(s)
Findfile(s + '\',ss2)
next
END IF
FindClose(i22)
return(count)

Если встречается директория, то она заносится в массив. Далее цикл по массиву с директориями
+ рекурсивный вызов.

Пример вызова
автор
ulong l
l = findfile("c:\1\",ss2)
messagebox('Найдено файлов ' + string(now()) , string(l))