lcField = 'MyFieldNameToCheck' lcDataPath = getdir() lnTables = adir(aTables, addbs(m.lcDataPath)+'*.dbf') for ix=1 to m.lnTables use (addbs(m.lcDataPath)+aTables[m.ix,1]) if fsize(m.lcField) = 0 ? 'Missing in :', dbf() endif use endfor
lcDataPath = getdir() lnTables = adir(aTables, addbs(m.lcDataPath)+'*.dbf') use (addbs(m.lcDataPath)+aTables[1,1]) copy struc extended to myLister use myLister m.Table_Name = aTables[1,1] replace all table_name with m.Table_name for ix=2 to m.lnTables Select 0 use (addbs(m.lcDataPath)+aTables[m.ix,1]) copy stru extended to _temp_ use Select myLister m.rec = reccount('myLister') append from _temp_ go m.rec+1 m.Table_Name = aTables[m.ix,1] replace rest table_name with m.Table_name EndFor Erase '_temp_.dbf' browsePS: You might also compare data folders (old and new) with Foxyclasses DataDelta utility.