VFP中备份大量数据

　　在实践中，我摸索出一种比较简单的方法来实现VFP中大量数据的备份，该方法利用DOS下的共享程序arj.exe的多盘备份命令来实现。我所编的两个文件的代码，一个是Getdata.prg文件，用于备份数据；一个是Recdata.prg，用于恢复数据。程序中假定数据备份成labor.arj文件。
　　1．＊Getdata.prg
=messagebox(″请准备好软盘″,48)
　　x=file(″arj.exe″)
　　if x=.t.
　　x1=″run arj.exe a －vavw a:\labor data″
　　＆x1
　　=messagebox(″数据备份完成!″,48)
　　else
　　=messagebox(″系统文件丢失,数据备份失败!″,48)
　　endif
　　retu
　　2．＊Recdata.prg
　　=messagebox(″请准备好软盘″,48)
　　x=file(″arj.exe″)
　　if x=.t.
　　if file(″a:\labor.arj″)
　　x1=″run arj.exe x －v －r a:\labor″
　　＆x1
　　=messagebox(″数据还原完成!″,48)
　　else
　　=messagebox(″无源数据!″,48)
　　endif
　　else
　　=messagebox(″系统文件丢失,数据还原失败!″,48)
　　endif
　　retu
　　以上程序在VFP5.0环境下调试通过。
(刘建和)

本文出自：《电脑报》1999年10月25日第42期