如何点击一个按键弹出对话框选择一个dbf，点击确定后拷贝到程序目录并修改这个dbf的名字？

例如一个文件叫 原始表12月.dbf

点击一个“按钮 ”，也就是 command.Click　的动作里面写什么？。

将这个“原始表12月.dbf”拷贝到当前的程序目录。

然后将“原始表12月.dbf”改名为“改名后的表.dbf”

GETFILE()
COPY FILE

看看帮助，里面有

谢谢，我这么写应该怎么改？

aaa=getfile('dbf')
mypath1=LEFT(SYS(16),RAT("/",SYS(16)))
copy file (aaa) to (mypath1)

就是说我把获得的文件目录写在aaa里，然后通过sys（）获得当前的目录，写入mypach1

然后用copy file (aaa) to (mypath1)，但是不对。

我觉得mypath1应该是文件名，不过正确的拷贝代码应该怎么写呢？

copy file 的是文件，文件是用文件名表示。
在执行 copy file 之前最好先检测源文件，如：
aaa=getfile('dbf')
if file(aaa)
    copy file (aaa) to (aaa2)
endif

如果是在同目录拷贝，应该不需要Path,如果是都在程序目录内运行copy file 即可

LOCAL cFile_Src,cFile_Tgr
cFile_Src = GETFILE("dbf","","",0,"请选择来源表")
IF EMPTY(cFile_Src)
    RETURN
ENDIF
IF !FILE(cFile_Src)
    MESSAGEBOX("文件“"+cFile_Src+"”不存在！",48,"提示")
    RETURN
ENDIF
cFile_Tgr = GETFILE("dbf","","",0,"请输入新表名")
IF !EMPTY(cFile_Tgr)
    cFile_Tgr = FORCEEXT(cFile_Tgr,"dbf")
    COPY FILE (cFile_Src) TO (cFile_Tgr)
    MESSAGEBOX("文件复制完毕！",64,"提示",3000)
ENDIF

[此贴子已经被作者于2016-3-25 15:23编辑过]

谢谢,太详细了，可能是我每台说清楚，是想把这个文件拷贝到“当前程序”所在的目录，这样写对吗？：

mypath1=LEFT(SYS(16),RAT("/",SYS(16)))
copy file (aaa) to (mypath1)

[此贴子已经被作者于2016-3-25 23:57编辑过]

mypath1 想要的是路径吗？
mypath1=LEFT(SYS(16),RAT("/",SYS(16)))
更正
mypath1=LEFT(SYS(16),RAT("\",SYS(16)))
另
?mypath1 看看是什么
copy file (aaa) to (mypath1) 再看看有什么结果

谢谢，如果我要把目标dbf 拷贝到当前程序所在的目录，并把名字改为“rename1.dbf”，这句话怎么写?

mypath1应该是路径，那么我是不是应该写成：
copy file (aaa) to (mypath1)+"rename1.dbf"

这样子？