VFP中备份大量数据

Author: 刘建中 Date: 1999年第42期 13版

    在实践中，我摸索出一种比较简单的方法来实现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环境下调试通过。