use b1 gnDbcnumber = ADIR(gaDatabase, '*.DBf') FOR nCount = 1 TO gnDbcnumber APPEND FROM ARRAY gaDatabase(nCount,1) ENDFOR