Page 1 of 1

descomprimir directorios vacios

Posted: Mon Sep 15, 2014 3:40 pm
by goosfancito
Hola.
TEngo un test.zip que contiene archivos y directorios, busque en el foro y vi este ejemplo:

Code: Select all | Expand

  aFiles := hb_GetFilesInZip("datos.zip")
   hb_unzipfile("datos.zip",,.T.,,"d:\temporal",aFiles,NIL)


pero no me descomprime las carpetas vacias...
que hago mal?

gracias.

Re: descomprimir directorios vacios

Posted: Mon Sep 15, 2014 4:16 pm
by karinha

Re: descomprimir directorios vacios

Posted: Mon Sep 15, 2014 4:53 pm
by goosfancito
la verdad que lei esos post pero no me solucionan el problema.

Descomprimo, pero no me descomprime las carpetas vacias.

gracias.

Re: descomprimir directorios vacios

Posted: Mon Sep 15, 2014 7:32 pm
by karinha
Carpetas Vacias? No comprendo.

Pide a Carlos Vargas de NicarĂ¡gua el XBACKUPLITE de su autoria, excelente para Backups.

Code: Select all | Expand


/*Procedimiento principal*/
FUNCTION XBLITE() //->MAIN()

   MEMVAR cPRGPATH, cFILEPATH

   cPRGPATH := cFILEPATH(GETMODULEFILENAME(GETINSTANCE()))
   cPRGPATH := cShortName(cPRGPATH)

   XBACKUPLITE()

   lCHDIR(cPRGPATH)

RETURN NIL
 


Saludos.

Re: descomprimir directorios vacios

Posted: Mon Sep 15, 2014 7:52 pm
by goosfancito
d:\
|
+- carpeta 2
| archiivo1
| archivo2
|
+ carpeta 3
+----- carpeta 4
|
|

cuando se descomprime debe tener la estructura de arriba, carpeta 4 no contiene archivos pero igual debe de aparecer,
cuando uso ese ejemplo que puse mas arriba carpeta 4 no se crea, o sea, en el .zip existe esa carpeta pero no la descomprime

Re: descomprimir directorios vacios

Posted: Mon Sep 15, 2014 8:09 pm
by karinha
Intenta asi:

Code: Select all | Expand


   hb_unzipfile( "datos.zip",,.T.,,"d:\temporal", aFiles + "\" )


Saludos.