hb_zipfile Comprimir Carpetas/Subcarpetas

[softruz]

Muy buenas foro, alguien tendría un ejemplo con la funcion hb_zipfile, para indicar como puedo comprimir una carpeta y todo la que contenga esta (subcarpetas, subsubcarpetas, ... etc.))


Un Saludo y Mil Gracias.

[MarioG]

softruf
Ingresa en http://forums.fivetechsupport.com/search.php "hb_zipfile" y vas a tener varios post que responden tu consulta

Saludos

[Maggiro]

Tema Interesante ...
Crear ZIP incluyendo carpeta y subcarpeta(s) ...
utilizando hb_zipfile ...
Suponga que tiene un Directorio D:\DEV\CONT\BUILD
lo que intentaria comprimir en ZIP esta en el directorio CONT y en el subdirectorio BUILD
pruebe algo asi:

Code: Select all  Expand view  RUN

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
 

Saludos
Julio César Gómez Cortéz
LIMA-PERU

[karinha]

Code: Select all  Expand view  RUN

// 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
 

Regards, saludos.

[Maggiro]

Joao: Sample Perfecto ... un abrazo!

Julio César Gómez Cortéz
Jultzem - Lima Perú