on error ReportError(error(), message()) use myMainTable in 0 alias MainTable lnFiles = adir(laFiles, m.lcMyDir + '*.dbf') && assuming we're working with DBFs for lnI = 1 to m.lnFiles use (m.lcMyDir + laFiles[m.lnI,1]) in 0 alias WorkFile select MainTable append from dbf('WorkFile') use in select('WorkFile') nextAdd an error routine.