在编程中，经常会遇到将DBF文件备份到一个目录中或一个盘符中，如何能够实现，请指教，用getdir()还是其它的

cDir=GETDIR()
cFile="表.DBF"
IF EMPTY(cDir)
MESSAGEBOX("没有指定路径，不能备份")
ELSE
COPY FILE "&cFile" TO "&cDir.&cFile"
ENDIF

谢了，不过虎哥还有个问题，为什么老是提示“文件正在使用”，如何解决，请明示

关闭该文件吧

别怪我麻烦,我的这个DBF文件是个索引文件,我想一边复制,一边改名,还想把CDX索引文件也带过去,好实现吗?

cDir="g:\"
cFile1="原文件.DBF"
cFile2="新文件.DBF"
COPY FILE "&cFile1." TO "&cDir.&cFile2."

老兄，我用了，可是原有的CDX文件带不过去，我的原文件都是索引文件，我是这样操作的，是不是我的关闭方法有问题
sele 原文件1
use
sele 原文件2
use
sele 原文件3
use
cFile1="原文件1.DBF"
cfile2="新文件1.dbf"
cFile11="原文件2.DBF"
cfile22="新文件2.dbf"
cFile111="原文件3.DBF"
cfile222="新文件3.dbf"
if empty (cDir)
MESSAGEBOX("没有指定路径，不能备份")
ELSE
COPY FILE "&cFile1." TO "&cDir.&cFile2." with cdx
COPY FILE "&cFile11." TO "&cDir.&cFile22." with cdx
COPY FILE "&cFile111." TO "&cDir.&cFile222." with cdx
messagebox("系统数据备份完毕！",0,"系统提示")
endif
另一个问题是我原来的表单中grid表中数据都不能显示了，请教原因

(1)关于复制。你错了，复制.DBF文件就复制.DBF文件，复制.CDX文件就复制.CDX文件，一个一个来.
(2)关于grid1不能显示。重新设置grid1的recordsource就可以了。

我试一试，效果非常好，谢了，这么晚版主还在线，真佩服敬业精神
我的recordsource设置的是1-别名，不知道应该设成什么，其实0-表
2-提示，3-查询，我不是特别清楚，还请版主有时间多指教，再次感谢！

设置成别名就好.