$PBExportHeader$findfile.srf
global type findfile from function_object
end type

forward prototypes
global function integer findfile (string start_dir, string exten)
end prototypes

global function integer findfile (string start_dir, string exten);
/*********************************************************************************************************************
*							СЫРОЙ ШАБЛОН ДЛЯ ПОИСКА ФАЙЛОВ			*
*********************************************************************************************************************/
LONG len1,i,dir_count,j
string s_fname1, SS3,SSS4,ls_curdir,s[]

		
		exten = "*.*"
		
		SSS4 =  start_dir + '\'  //DIR
		ls_curdir =sss4 + exten
		i22 =FindFirstFileA(ls_curdir,ss2)
		len1 =upperbound(ss2.i9)
		
		m1:
		

		s_fname1 =trim(sss4 + ss3)
		
			IF ss2.i1=  16  and ss2.i9 <> '.' and ss2.i9 <> '..' THEN 
				i++
				s[i] = start_dir + ss2.i9         //Массив с директориями
				
			 elseif ss2.i9 <> '.' and ss2.i9 <> '..' THEN
				 file_rab(start_dir,ss2.i9)
				
			END IF
			

/*******************************************************************************************************************
*					КОНЕЦ ОСНОВНОГО БЛОКА 								 *
*******************************************************************************************************************/			
		ss3 =''
		ss2.i9 =''
				
		IF FindNextFileA(i22,ss2) THEN
			goto m1
		END IF				

									dir_count = upperbound(s[])
	IF dir_count >  0  THEN
		for j =  1  to dir_count
                       /************************
                        *  рекурсивное обращение     *
                        ************************/
			Findfile(s[j], exten)
		next
	END IF
					
					FindClose(i22)
						return  1 
end function

$PBExportHeader$ss1.srs
global type ss1 from structure
	unsignedlong		i1
	unsignedlong		i2
	unsignedlong		i2_1
	unsignedlong		i3
	unsignedlong		i3_1
	unsignedlong		i4
	unsignedlong		i4_1
	unsignedlong		i5
	unsignedlong		i6
	unsignedlong		i7
	unsignedlong		i8
	character		i9[ 256 ]
	character		i10[ 14 ]
end type

Function ulong FindFirstFileA(ref string currentdir, ref ss1 ss0) LIBRARY "Kernel32.dll"
Function boolean FindNextFileA(ulong i1,ref ss1 ss01)LIBRARY "Kernel32.dll"