FOR i=1 TO ADIR(alj,"c:\temp\*.txt")
    aljstr="alj("-TRANSFORM(i)-',1)'
    allnamestr=&aljstr
    namestr=CHRTRAN(allnamestr,".TXT","")
    txtstr=FILETOSTR("c:\temp\"-&aljstr)
    c_name="'"+"c:\temp\"+"&allnamestr"+"'"
    STRTOFILE(STRTRAN(txtstr,txtstr,namestr+CHR(13)+CHR(10)+txtstr),&c_name)
NEXT

使用justfile("123.txt")取得文件的主文件名到一个字符型变量中；
使用fopen打开123.txt文件
使用fwrite写入字符型变量到文件中。

Local cPath,nFileCount,aFile[1],cFile,cFileStr
cPath="g:\"
nFileCount=ADIR(aFile,addbs(cPath)+"*.txt")
FOR I=1 TO nFileCount
    cFileStr=FileToStr(addbs(cPath)+aFile[I,1])
    =StrToFile(JUSTSTEM(aFile[I,1])+CHR(13)+CHR(10)+cFileStr,addbs(cPath)+aFile[I,1])
ENDFOR
&&在TXT文件内容前写入文件名,并加入了回车换行符
&&注意上段代码没有加入文件是否正被使用的判断.

怎么不会实现我要的结果呀，是不是把你们代码做成prg程序和我的那些TXT文件放在一个文件夹里，然后运行程序？
还是谢谢各位老师！！

把代码放到.prg文件中，把 “FOR i=1 TO ADIR(alj,"c:\temp\*.txt") ”这一句中的路径"c:\temp\*.txt"改为你存放TXT文件的路径。
然后运行。