SET TALK OFF
SET SAFE OFF
CLOSE DATA ALL
CLOSE TABLE ALL
IF !FILE('RAR.EXE')
  =MESSAGEBOX('缺少可執(zhí)行文件 RAR.EXE ，本功能暫不可用。    '+CHR(13)+'請與電腦程序設計維護人員聯(lián)系。      ',64,'信息')
  RETURN
ENDIF
LNMSGRESULT=MESSAGEBOX('是否要備份數(shù)據(jù)？    ',3+48,'數(shù)據(jù)備份')
IF LNMSGRESULT<>6
  RETURN
ENDIF
WAIT WINDOW '數(shù)據(jù)備份，請稍候......' NOWAIT
RUN RAR.EXE U -PAdmin9 BACKUP.RAR *.DBF *.CDX *.FPT -R -M5 -RR
STR_D=DTOC(DATE())
STR_D=LEFT(STR_D,4)+SUBS(STR_D,6,2)+RIGHT(STR_D,2)
IF FILE('BACKUP.RAR')
STR_C='COPY FILE BACKUP.RAR TO '+STR_D+'.RAR'
&STR_C
ENDI
STR_D=DTOC(DATE()-12)
STR_D=LEFT(STR_D,4)+SUBS(STR_D,6,2)+RIGHT(STR_D,2)
IF FILE(''+STR_D+'.RAR')
  STR_C='DELE FILE '+STR_D+'.RAR'
  &STR_C
ENDIF
STR_D=DTOC(DATE()-11)
STR_D=LEFT(STR_D,4)+SUBS(STR_D,6,2)+RIGHT(STR_D,2)
IF FILE(''+STR_D+'.RAR')
  STR_C='DELE FILE '+STR_D+'.RAR'
  &STR_C
ENDIF
IF FILE('TMP.RAR')
  IF FDATE('TMP.RAR')+1<DATE()
    DELE FILE TMP.RAR
    DELE FILE TMP.R0*
  ENDIF
ENDIF
CLOSE DATA ALL
CLOSE TABLE ALL
WAIT WINDOW '數(shù)據(jù)備份已完成！' NOWAIT TIMEOUT 3
=MESSAGEBOX(DTOC(DATE())+'數(shù)據(jù)備份工作完成！      ',64,'信息')
RETURN