程序代码：

cPath=Sys(5)+Sys(2003)+"\ABC\"

lnFiles=Adir(aFile,cPath+"kqb^*.dbf" ) 

 
  Use aFile(1,1)  &&&&？？？
       
  Copy Structure To AAA           &&&另存在ABC文件夹中
  Use AAA                          
  For lnI=1 To lnFiles               
      lcStr=(aFile(lnI,1))     
    Append From '&lcStr.'        &&&合并后的文件在ABC文件夹中
  ENDFOR
  [local]1[/local]

[此贴子已经被作者于2022-7-13 05:20编辑过]

程序代码：

***在一个名为A123文件夹里有个程序打开文件程序PP.prg

cPath=Sys(5)+Sys(2003)+"\ABC\"

lnFiles=Adir(aFile,cPath+"kqb^*.dbf" ) 

 
  *Use aFile(1,1)  &&&&？？？
  Use (cPath+aFile(1,1))  
       
  Copy Structure To ABC\AAA           &&&另存在ABC文件夹中
  Use ABC\AAA                          
  For lnI=1 To lnFiles               
      lcStr=(aFile(lnI,1))     
    Append From '&cPath&lcStr.'        &&&合并后的文件在ABC文件夹中
  
  ENDFOR
  
  BROW