It works, but does not append
There's no error message
Could you please take a look ?
SET EXCLUSIVE OFF
STORE my_old_dir TO MyOldPath
STORE CURDIR() + "/data" TO MyNewPath
lnOldTables = adir(laOldTables, MyOldPath + "*.dbf")
lnNewTables = adir(laNewTables, MyNewPath + "*.dbf")
for lnI = 1 to lnNewTables
lnRow = ascan(laOldTables, laNewTables[m.lnI,1],1,-1,1,15)
if lnRow > 0
use (laNewTables[m.lnI]) exclusive in 0 alias NewData
zap
append from (myOldPath + laOldTables[m.lnRow,1])
use in NewData
endif
NEXT
