哦,你要 txt 文件,稍微加几句
*-----------------------------------------------
Set Alternate to c:\1.txt
Set Alternate On
For each oo in _vfp.ActiveProject.Files
? oo.name
Endfor
Set Alternate Oft
Set Alternate To
Modify File c:\1.txt
*-----------------------------------------------
你也可以把上面的内容粘贴到一个 prg 文件里,将它加到项目中,然后在项目中 Run 这个 prg