This should get you started

CLOSE DATA
DIMENSION laTableLIst[1]
m.folder2 = ADDBS(m.folder2)
m.folder1 = ADDBS(m.folder1)
= ADIR(laTableLIst, m.folder2 + "*.dbf")
FOR i=1 TO ALEN(laTableLIst,1)
  USE (m.folder2 + laTableLIst[i,1]) EXCLUSIVE
  ZAP 
  APPEND FROM (m.folder1 + laTableLIst[i,1])
  USE
ENDFOR

>
>I have two folders as
>
>folder1= contains FPD26 tables
>folder2= contains VFP6 tables
>
>The tables in both folders have same names and fields.
>
>I want following steps
>
>1- Zap all tables from folder2
>2- Append data from folder1
>
>I want to use APPEND instead of COPY.
>
>Please help me