lcOldDir = ADDBS("...")
lcNewDir = ADDBS("...")
FOR i=1 TO ADIR(laTableList, lcNewDir + "*.dbf")
	lcTable = laTableList[i,1]
	USE (lcNewDir + lcTable) EXCLUSIVE
	APPEND FROM (lcOldDir + lcTable)
	USE
ENDFOR

>i wantto fill my empty tables from old tables directoy which is created "gendbc.prg" utility
>
>scenario;
>i am creating my empty tables via "gendbc.prg" in another folder and i wantto fill them from my old or another folder records
>i've no good idea about using adir() to get file list and select-Sql .... append from in a loop
>
>how would be the simple code about this ?