bf.prg

来自「科技信息管理系统」· PRG 代码 · 共 32 行

clear all
close all
diskall=0
sele 5 
use ks
resize=recsize()+2800
recc=reccount()
sele 10
use backupa.file.dbf
dele all
pack
sele 5
go top
do whil .not. eof()
?"请插入第"+str(diskall+1,3,0)+"张备份盘,然后按任意键继续"
wait""
set defa to a:
disksp=diskspace()
renub=disksp/resize
filem=allt("back"+dtoc(date(),1))
filename="a:\"+filem
copy to &filename next renub
set defa to 
diskall=diskall+1
sele 10
appe blan
repl diskinfo with filem
repl diskno with diskall
sele 5
enddo
?"备份完毕,共"+str(diskall,3,0)+"张磁盘"
retu