7楼的代码也可以这样写

SELECT gz
ZAP
= ADIR(afile, "data\fk????.dbf")
FOR i = 1 TO ALEN(afile, 2)
    APPEND FROM ("data\" + afile[i, 1])
ENDFOR
replace byxxdm with subs(bmh,5,4) all
MESSAGEBOX("数据加载结束")

顶层文件夹名称可以随意改名，但子文件名称是固定不变的，如果调用表时，可以直接

append from data\fk2201

select * from data\fk2201

谢谢指点，我测试一下。

你移动了文件，又没有指定搜索路径，当然会出现找不到文件（表）的问题。解决起来也不复杂，要么添加搜索路径，或者在打开文件时指定相对路径。

set path to 你的目录
set defa to 你的目录

这两个命令的含义是什么？他们各自的原理是什么？
搜索路径是什么意思？
在网上百度了一下，但是还是不太明白。

把您发的这个程序，打开看了看，看到了有几处修改。
我再试试

[此贴子已经被作者于2019-7-13 09:27编辑过]

谢谢，这两行代码需要写在哪个文件中的什么地方？

谢谢指点，如何指定搜索路径，
指定搜索路径的命令放在程序中哪个文件的哪个位置？
比如所有的自由表都放在data这个文件夹了，如何让表单按钮执行命令时，知道去这个data文件夹中找到这些表？

***********************
for i = 2201 to 2216  &&让循环变量i等于wy2201至wy2216
use data\zk1122fp
copy to data\"fk"+allt(str(i)) for subs(bmh,5,4)=allt(str(i)) &&复制学校代码=2201的到2201表，依次连续类推，一直到复制学校代码=2216的到2216表，注意将变量转换为字符型，并且去掉空格，否则会出现一些莫名奇妙的错误。
endfor  &&结束循环
use
MESSAGEBOX("16所学校录取库已经拆分完毕！")
**********************
这个提示找不到路径，是不是红色的这一行，不能把记录拷贝到data文件夹下？

[此贴子已经被作者于2019-7-13 09:49编辑过]

VFP9安装目录下有自带的VFP帮助文件，文件名：dv_foxhelp.chm

写在主程序的开始。