CREATE CURSOR TablesWithCharField (cTableNam M) GetFolderTables("R:\ROOT") FUNCTION GetFolerTables(cFolder) LOCAL nDirs, nFiles, cntr, cntr1, numb_fields LOCAL ARRAY aFiles[1] cFolder = ADDBS(cFolder) nDirs = ADIR(aFiles, cFolder+"*.*","D") FOR cntr = 1 TO nDirs IF NOT (aFiles[cntr,1] == "." OR aFiles[cntr,1] == "..") GetFolerTables(cFolder+aFiles[cntr,1]) ENDIF NEXT LOCAL ARRAY aFiles[1] nDirs = ADIR(aFiles, cFolder+"*.DBF") FOR cntr = 1 TO nDirs USE (cFolder+aFiles[cntr,1]) ALIAS TestFile IN 0 numb_fields = AFIELDS(aFlds, "TestFile") FOR cntr1 = 1 TO numb_fields IF aFlds[cntr1, 2]== "C" .AND.; aFlds[cntr1, 3]== 10 INSERT INTO TablesWithCharField VALUES (cFolder+aFiles[cntr,1]) EXIT ENDIF NEXT USE IN TestFile NEXT RETURN ""(not Tested)