>If files arent't to big you can use Filetostr() and Strtofile() functions

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

>

Thanks Sergey. I will study this code and try it out.