感谢zhken，感谢wzxc，感谢sdta，感谢hu9jj。
感谢shenkj001，感谢xuminxz。


在主程序开头加上：
Set Default To Left(Sys(16),Rat('\',Sys(16)))
Set Path To Data,PROGS,Reports,Forms,Menus,Other,vcx,ClassLibrary,icoandpic
经测试，程序各项功能基本正常。

感谢sdta老师帮我改进“7-合并16个公助库”按钮的命令。

再次感谢各位老师。
虽然我基础知识有限，但在努力学习。

照搬我的代码，不过我的搜索路径和你的路径完全一样吗？

我修改成我自己的文件夹名了。

在你的主程序中要设置好当前路径
public LJ
LJ=sys(5)+sys(2003)+"\"

（1）如果你操作文件时改变了当前路径，使用
cd &LJ
就可以返回来

（2）
在你打开文件时，用相对路径
use ".\aaa\bbb\ccc\temp.dbf"