backup

[Alain da Silva]

pessoal, usando essa função, como faço pra fazer o backup dos subdiretórios e que ele me coloque na mesma ordem.

nesse exemplo se eu coloco outro diretório ele cria tudo junto.

/*---- Funcao para Compactar os Arquivos de Backup ----*/
   Function BackupZip()
   LOCAL lRet   := .F.
   LOCAL aFiles := {}
   LOCAL cArq   := ".\backup\Backup"+dtos(date())+".zip"
   if file(cArq);FERASE(cArq);endif
   
    aFiles := {,;
               ".\DADOS\*.dbf",;
               ".\DADOS\*.fpt",;
               ".\TESTE\*.*",;
             }
	   lRet := hb_ZipFile( cArq, aFiles )
	   If .NOT. lRet
	      cArq := " "
       Endif
   Return( cArq )

 

[kapiaba]

#include "FiveWin.ch"
	/*
Fala Tranka...
	Veja se te serve.
*/
	/*---- Funcao para Compactar os Arquivos de Backup ----*/
	Function BackupZip()
	   LOCAL lRet   := .F.
   LOCAL aFiles := {}
   LOCAL cArq   := "Backup.zip"
   /*
   LOCAL cArq  := STRZERO( DAY( DATE() ), 2 )   + ;
                  STRZERO( MONTH( DATE() ), 2 ) + ;
                  RIGHT( STRZERO( YEAR(DATE() ),4 ), 2 ) + "DB.ZIP"
   */
	   /*
   aFiles := {,;
               "SEUARQ01.DBBF",;
               "SEUARQ02.DBBF",;
               "SEUARQ03.DBBF",;
               "SEUARQ04.DBBF",;
             }
   */
	   aFiles := {,;
               "CITAS.DBF",    ;
               "COMPRAS.DBF",  ;
               "CUSTOMER.DBF", ;
               "FIVETEST.DBF", ;
             }
	   lRet := hb_ZipFile( cArq, aFiles )
	   If .NOT. lRet
	      cArq := " "
	      ? [NAO FUNFOU MANO BROWN]
	   Endif
	   aFiles := {,;
               "C:\AGENDA\*.DBF",;
               "C:\AGENDA\*.PRG",;
               "C:\TESTE\*.TXT",;
             }
	   lRet := hb_ZipFile( cArq, aFiles )
	   If .NOT. lRet
	      cArq := " "
	      ? [NAO FUNFOU MANO BROWN 2]
	   Endif
	Return( cArq )