bf.prg

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

* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
*  文件名: BF.PRG <-- 本文件由 UnFoxAll 创建
* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-


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