bf.prg

来自「吐血贡献纺织上的进销存原码,功能齐全,给大家吧.」· PRG 代码 · 共 25 行

* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
*  文件名: BF.PRG
*  功能：备份
* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-


 CLOSE DATABASES ALL
 CLOSE TABLE ALL
 ON ERROR do _error1
 USE EXCLUSIVE (SYSPATH+'data\filename.dbf')
 SELECT FILENAME
 ZAP 
 = ADIR(FILE_ARRAY,ZTPATH+'data\'+MYEAR+'\*.*')
 APPEND FROM ARRAY FILE_ARRAY
 IF EMPTY(CURDIR(SYSPATH+'BAK'+MYEAR))
    MD (SYSPATH+'BAK'+MYEAR)
 ENDIF 
 BAKPATH=SYSPATH+'BAK'+MYEAR+'\'
 SELECT FILENAME
 SCAN 
    COPY File (ZTPATH+'data\'+MYEAR+'\'+ALLTRIM(文件名)) TO (ALLTRIM(BAKPATH) + ALLTRIM(文件名))
    WAIT WINDOW NOWAIT ('正在备份：' + ALLTRIM(BAKPATH) + ALLTRIM(文件名))
 ENDSCAN 
*