FiveTech Software tech support forums

Code: Select all | Expand

FUNCTION Backup()
   LOCAL pathback,pathdata
   ** creamos un directorio JECBack para guardar alli el ZIP
   pathback=CurDrive()
   pathback+=':\JECBack'
   IF .NOT. lIsDir(pathback)
       lMkDir(pathback)
   ENDI
   ** ahora asignamos el path a comprimir, en una variable
   pathdata=CurDrive()
   pathdata+=':\DEV\CONT'
   ** vamos a usar un nombre para el comprimido con iniciales BK+AAAAMMDD.ZIP
   ** ejecutamos primero la compresion del subdirectorio BUILD
      hb_ZipFile( pathback+'\BK'+DTOS(DATE()), pathdata+'\BUILD\*.*',,,,,.T.,.T.,, )
   ** ahora ejecutamos la compresion del directorio CONT
      hb_ZipFile( pathback+'\BK'+DTOS(DATE()), pathdata+'\*.*',,,.F.,,.T.,.T.,, )
   ENDI
   ** HAZ CREADO UN ZIP INCLUYENDO SUBCARPETAS
RETU nil
 

Code: Select all | Expand

// C:\FWH...\SAMPLES\MBACKUP.PRG

#include "FiveWin.ch"

STATIC oWnd

FUNCTION Main()

   LOCAL oBar

   SET CENTURY ON
   SET DATE BRITISH
   SET TIME FORMAT TO "HH:MM:SS"
   SET EPOCH TO YEAR( DATE() ) - 30

   DEFINE WINDOW oWnd TITLE "3D mBackup"

   DEFINE BUTTONBAR oBar _3D OF oWnd

   DEFINE BUTTON OF oBar ACTION mBackup() // Maggiro.

   SET MESSAGE OF oWnd TO "3D mBackup" NOINSET CLOCK DATE KEYBOARD

   ACTIVATE WINDOW oWnd

RETURN NIL

FUNCTION mBackup() // Maggiro.

   LOCAL pathback, pathdata

   ** creamos un directorio JECBack para guardar alli el ZIP
   pathback := CurDrive()
   pathback += ':\JECBack'  // Carpeta de destino del Backup

   IF .NOT. lIsDir(pathback)
      lMkDir(pathback)
   ENDIF

   ** ahora asignamos el path a comprimir, en una variable
   pathdata := CurDrive()
   // pathdata+=':\DEV\CONT'
   pathdata += ':\Alianca'   // Carpeta de Origen C:\ALIANCA

   ** vamos a usar un nombre para el comprimido con iniciales BK+AAAAMMDD.ZIP

   ** ejecutamos primero la compresion del subdirectorio BUILD
   hb_ZipFile( pathback+'\BK'+DTOS(DATE()), pathdata+'\BUILD\*.*',,,,,.T.,.T.,, )

   ** ahora ejecutamos la compresion del directorio CONT
   hb_ZipFile( pathback+'\BK'+DTOS(DATE()), pathdata+'\*.*',,,.F.,,.T.,.T.,, )

   ** HAZ CREADO UN ZIP INCLUYENDO SUBCARPETAS

   oWnd:End()

RETURN NIL

// FIN