u can try the following
get the list of dbfs and put it into array (dir *.dbf > x.txt. read x.txt into an array)
for i 1 to alen(array)
use flock command to lock the files one by one
then use file one by one and use copy to another file name
i.e.
public lok
lok = .t.
lok = flock('customer.dbf')
if lok
use customer in 0 again alias customer
copy to custbak.dbf
and do the above for all files
|