More good stuff...
Let me analyze this along with the others.........

Thanks a bunch!!

>The following may help to gather all table names into cursor; then you can scan the cursor, and analyse tables.
>

>create curs file_list1 (lcdir c(100), filename c(100), filesize n(10), filedt T )
>
>TotSize1 = iFill("c:\foxwork", "file_list1")
>
>?TotSize1
>
>Return
>*-----------------------------
>PROCEDURE iFILL(cRoot,file_list)
>
>wait wind nowa padr("Exploring "+alltr(cRoot),200)
>LOCAL nNumbofDir,I, acDirAll[1,1],nCumSize,nSize,nCount
>
>nCumSize = 0
>nSize = 0
>cRoot=ADDBS(cRoot)
>
>release aa
>if adir(aa,cRoot+"*.dbf")>0
>	for i=1 to alen(aa,1)
>		IF  UPPER(JUSTSTEM(aa[i,1]))#"FOXUSER"
>			insert into (file_list) values (cRoot,aa[i,1],aa[i,2],CTOT(dtoc(aa[i,3])+" "+aa[i,4]))
>		ENDIF
>	endfor
>endif
>
>nNumbofDir = ADIR(acDirAll,cRoot + "*.*","D")
>if nNumbofDir>=0
>	=ASORT(acDirAll)
>	FOR I = 1 TO nNumbofDir
>		IF "D" $ acDirAll[i,5]
>			IF LEFT(acDirAll[i,1],1) != '.'
>				nSize = ifill(cRoot + acDirAll[i,1] + '\',file_list)
>			ENDIF
>		ENDIF
>		nCumSize = nCumSize + acDirAll[i,2]
>	ENDFOR
>endif
>
>RETURN nCumSize
>

>
>
>
>
>>Hey Gurus!
>>
>>Given a folder
>>
>>R:\ROOT
>>
>>and subfolders
>>
>>R:\ROOT\ONE
>>R:\ROOT\TWO
>>R:\ROOT\THREE
>>.....
>>R:\ROOT\FINAL where we don't know how many sub-folders there are (IMPORTANT!!)
>>
>>I need to find all tables in these subfolders, including the root, that have at
>>least one field with Character Type and Length of 10 (C-10).
>>
>>Output can go to another final table.
>>
>>Any ideas? Been done before?
>>
>>Thanks!!
>>
>>Tommy