【vfp开源代码栏目提醒】:网学会员鉴于大家对vfp开源代码十分关注,论文会员在此为大家搜集整理了“copy.prg”一文,供大家参考学习
on erro do gc
i=1
@5,10 say "请输入表名" get bm default space(8)
read
bm=alltrim(bm)
if file("&bm.dbf")
use &bm
xx=messagebox("请将磁盘插入软驱中",1+48+256,"复制文件")
do case
case xx=1
wait "正在复制,请稍等!" window at 20,50 nowait
copy to a:&bm
case xx=2
wait "我不想复制,我要退出" window at 20,50
endcase
endif
procedure gc
xx=messagebox("驱动器未准备好,请将磁盘插入软驱中",1+48+256,"复制文件")
i=i+1
if i<=3
retry
endif
wait clear