vfp的文件复制问题

oldfile="d:\123.dbf" &&要复制的文件

lj="e:\new\"

mch="234.dbf"

newfile=lj+mch

use &oldfile

copy to &newfile

use

如果要动态的

oldfile='"'+GETFILE("dbf")+'"'

if JUSTEXT(oldfile)<>'DBF'

messagebox("非DBF文件！")

retu

endif

use &oldfile

newfile='"'+PUTFILE("","","dbf")+'"'

if newfile='""'

retu

endif

copy to &newfile

use

messagebox("复制成功！")

VFP中的复制命令：

COPY FILE 命令，复制任何类型的文件。

句法

COPY FILE FileName1 TO FileName2

备注

COPY

FILE创建在FileName1指定其名称的文件的副本。您可以使用将文件复制为任何类型的文件。文件在复制不能打开。您必须包括扩展为源文件名FileName1和目标文件名FileName2。

VFP还有COPY TAG 命令和COPY INDEXES 命令。

---