set safety off FOR i = 1 to alen(adir()) use (ADIR(i)) exclusive && open file for exclusive use copy to tmp structure extended && Create a DBF structure file copy all to dbfBack && Copy the data to a backuo use && Close cuurent dbf being modified erase (ADIR(i)) && I think this works use tmp exclusive && open the structure dbf append blank && Add a record for field description repl field_name with "NewField",field_type with "C",field_len with 30 && etc create (ADIR(i)) from tmp && Created a header with new field with original name use (ADIR(i)) exclusive && open empty file with new field append from dbfBack && Add the data - new field is empty use && CLose ENDFORBE SURE TO TEST THIS ON ONE FILE FIRST - I DIDN'T :)