搜索目录下的txt文件，并将所有txt文件里内容合并，生成一个新的txt

cPath="c:\temp\"
cNewTxtFile="Newtxt.txt"
CREATE CURSOR  MyTxt(cTxt M)
    APPEND BLANK
FOR  I=1 TO ADIR(MyArray,cPath+"*.txt")
    APPEND MEMO cTxt FROM (cPath+MyArray(i,1))
ENDFOR
COPY MEMO cTxt TO (cNewTxtFile)
USE
MODIFY COMMAND (cNewTxtFile)
当然也可用低级文件相关命令函数实现

简明扼要！

也可以试试：
STRTOFILE(FILETOSTR(cInFile), cOutFile, 1)

[此贴子已经被作者于2018-8-29 14:11编辑过]

吹版思路更简单：
cPath="c:\temp\"
cNewTxtFile="Newtxt.txt"
    cTxt=""
FOR  I=1 TO ADIR(MyArray,cPath+"*.txt")
    cTxt=cTxt+FileToStr(cPath+MyArray(i,1))
ENDFOR
STRTOFILE(cTxt,cNewTxtFile)
MODIFY COMMAND (cNewTxtFile)