吐血贡献纺织上的进销存原码,功能齐全,给大家吧.

				* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
				*  文件名: 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 
				*