lcDir = < Some Directory > >lcResultFile = < ... > >DIMENSION laFileList[1] >= ADIR(laFileList, lcDir + "*.txt") >ERASE (lcResultFile) >FOR i=1 TO ALEN( > STRTOFILE(FILETOSTR(lcDir + laFileList[i,1]), lcResultFile, .T.) >ENDFOR