descomprimir directorios vacios

[goosfancito]

Hola.
TEngo un test.zip que contiene archivos y directorios, busque en el foro y vi este ejemplo:

Code: Select all  Expand view

  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.

[karinha]

viewtopic.php?f=3&t=18033

http://www.44342.com/xharbour-f1105-t3089-p1.htm

http://www.pctoledo.com.br/forum/viewto ... =4&t=13030

https://groups.google.com/forum/#!topic ... YSDxx5PmaA

Saludos.

[goosfancito]

la verdad que lei esos post pero no me solucionan el problema.

Descomprimo, pero no me descomprime las carpetas vacias.

gracias.

[karinha]

Carpetas Vacias? No comprendo.

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

Code: Select all  Expand view

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

   MEMVAR cPRGPATH, cFILEPATH

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

   XBACKUPLITE()

   lCHDIR(cPRGPATH)

RETURN NIL
 

Saludos.

[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

[karinha]

Intenta asi:

Code: Select all  Expand view

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

Saludos.