FileCount=adir(arrTables,cTablePath+'\*.dbf') use (cTablePath+arrTables[1,1]) afields(arrStruc) use Create Cursor MyCursor from array arrStruc For ix=1 to FileCount append from (cTablePath+arrTables[ix,1]) for MyUsefulCriteria Endfor