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