Bueno pues mi problema pensaba q era sencillo, pero joer no encuentro solucion y me he vuelto loco 1000 veces! 
Tengo q extraer los archivos de un zip en una carpeta, perfecto. El problema llega que el zip que tengo que extraer tiene 2 carpetas comprimidas: 1 y 2. Entonces al darle a extraer me mezcla los archivos de la carpeta 1 con los de la 2 y quiero que me mantenga ésos directorios. He usado:
Lo podeis encontrar en elguille...
Pues eso, me lo extrae bien, pero me mezcla lo que hay en las carpetas comprimidas 1 y 2, dejando todo en c:\prueba.
Creo que los tiros andan por:
· La estructura ZIPNames: Contiene los nombres (rutas completas) de los archivos a descomprimir. ¿Sera ésta la clave? Pero no se como utilizarlo
GACIAS POR LEER HASTA AQUÍ jejeje. Cualquier sugerencia/solución es bienvenida! Salu2!
Tengo q extraer los archivos de un zip en una carpeta, perfecto. El problema llega que el zip que tengo que extraer tiene 2 carpetas comprimidas: 1 y 2. Entonces al darle a extraer me mezcla los archivos de la carpeta 1 con los de la 2 y quiero que me mantenga ésos directorios. He usado:
Código [Seleccionar]
Unzip32.dllCódigo [Seleccionar]
Un módulo:
Private Type CBChar
ch(4096) As Byte
End Type
Private Type UNZIPUSERFUNCTION
UNZIPPrntFunction As Long
UNZIPSndFunction As Long
UNZIPReplaceFunction As Long
UNZIPPassword As Long
UNZIPMessage As Long
UNZIPService As Long
TotalSizeComp As Long
TotalSize As Long
CompFactor As Long
NumFiles As Long
Comment As Integer
End Type
Private Type UNZIPOPTIONS
ExtractOnlyNewer As Long
SpaceToUnderScore As Long
PromptToOverwrite As Long
fQuiet As Long
ncflag As Long
ntflag As Long
nvflag As Long
nUflag As Long
nzflag As Long
ndflag As Long
noflag As Long
naflag As Long
nZIflag As Long
C_flag As Long
FPrivilege As Long
Zip As String
extractdir As String
End Type
Private Type ZIPnames
s(0 To 99) As String
End Type
Public Declare Function Wiz_SingleEntryUnzip Lib "dll\Unzip32.dll" (ByVal ifnc As Long, ByRef ifnv As ZIPnames, ByVal xfnc As Long, ByRef xfnv As ZIPnames, dcll As UNZIPOPTIONS, Userf As UNZIPUSERFUNCTION) As Long
Public Sub UnZip(Zip As String, extractdir As String)
On Error GoTo err_Unzip
Dim Resultado As Long
Dim intContadorFicheros As Integer
Dim FuncionesUnZip As UNZIPUSERFUNCTION
Dim OpcionesUnZip As UNZIPOPTIONS
Dim NombresFicherosZip As ZIPnames, NombresFicheros2Zip As ZIPnames
NombresFicherosZip.s(0) = vbNullChar
NombresFicheros2Zip.s(0) = vbNullChar
FuncionesUnZip.UNZIPMessage = 0&
FuncionesUnZip.UNZIPPassword = 0&
FuncionesUnZip.UNZIPPrntFunction = DevolverDireccionMemoria(AddressOf UNFuncionParaProcesarMensajes)
FuncionesUnZip.UNZIPReplaceFunction = DevolverDireccionMemoria(AddressOf UNFuncionReplaceOptions)
FuncionesUnZip.UNZIPService = 0&
FuncionesUnZip.UNZIPSndFunction = 0&
OpcionesUnZip.C_flag = 1
OpcionesUnZip.fQuiet = 2
OpcionesUnZip.noflag = 1
OpcionesUnZip.Zip = Zip
OpcionesUnZip.extractdir = extractdir
Resultado = Wiz_SingleEntryUnzip(0, NombresFicherosZip, 0, NombresFicheros2Zip, OpcionesUnZip, FuncionesUnZip)
Exit Sub
err_Unzip:
MsgBox "Unzip: " + Err.Description, vbExclamation
Err.Clear
End Sub
Private Function UNFuncionParaProcesarMensajes(ByRef fname As CBChar, ByVal X As Long) As Long
On Error GoTo err_UNFuncionParaProcesarMensajes
UNFuncionParaProcesarMensajes = 0
Exit Function
err_UNFuncionParaProcesarMensajes:
MsgBox "UNFuncionParaProcesarMensajes: " + Err.Description, vbExclamation
Err.Clear
End Function
Private Function UNFuncionReplaceOptions(ByRef p As CBChar, ByVal L As Long, ByRef m As CBChar, ByRef Name As CBChar) As Integer
On Error GoTo err_UNFuncionReplaceOptions
UNFuncionParaProcesarPassword = 0
Exit Function
err_UNFuncionReplaceOptions:
MsgBox "UNFuncionParaProcesarPassword: " + Err.Description, vbExclamation
Err.Clear
End Function
Public Function DevolverDireccionMemoria(Direccion As Long) As Long
On Error GoTo err_DevolverDireccionMemoria
DevolverDireccionMemoria = Direccion
Exit Function
err_DevolverDireccionMemoria:
MsgBox "DevolverDireccionMemoria: " + Err.Description, vbExclamation
Err.Clear
End Function
Lo podeis encontrar en elguille...
Código [Seleccionar]
Y la informacion de que es cada cosa aqui:
Tipos necesarios:
· Public Type UNZIPUSERFUNCTION
UNZIPPrntFunction As Long
UNZIPSndFunction As Long
UNZIPReplaceFunction As Long
UNZIPPassword As Long
UNZIPMessage As Long
UNZIPService As Long
TotalSizeComp As Long
TotalSize As Long
CompFactor As Long
NumFiles As Long
Comment As Integer
End Type
· Public Type UNZIPOPTIONS
ExtractOnlyNewer As Long
SpaceToUnderScore As Long
PromptToOverwrite As Long
fQuiet As Long
ncflag As Long
ntflag As Long
nvflag As Long
nUflag As Long
nzflag As Long
ndflag As Long
noflag As Long
naflag As Long
nZIflag As Long
C_flag As Long
FPrivilege As Long
Zip As String
ExtractDir As String
End Type
· Public Type ZIPnames
s(0 To 99) As String
End Type
· Public Type CBChar
ch(4096) As Byte
End Type
Declaración de funciones:
· Public Declare Function Wiz_SingleEntryUnzip Lib "unzip32.dll" (ByVal ifnc As Long, ByRef ifnv As ZIPnames, ByVal xfnc As Long, ByRef xfnv As ZIPnames, dcll As DCLIST, Userf As USERFUNCTION) As Long
Retornan 1 si ha ido correctamente y un codigo de error en caso contrario.
Parametros:
Ifnc: Siempre 0
Ifnv: La ruta completa de los ficheros a descomprimir (solo cuando son mas de uno), si no se manda el elmento 0 del array con caracter de fin de cadena.
Xfnc: Siempre 0
Xfnv: La ruta donde se dejara cada uno de los ficheros descomprimido (solo cuando son mas de uno), si no se manda el elemento 0 del array con caracter de fin de cadena.
dcll: Opciones de descompresion
Userf: Direccion de memoria de las funciones a las que la Dll llamara durante la descompresion. Si no nos interesa mandamos: &0.
· La Estructura UNZIPUSERFUNCTION:
Son las funciones a las que la dll lamará cuando quiera hacer determinadas acciones como mostrar mensajes, pedir password, etc
- UNZipPrntFunction: Debe contener la dirección de memoria donde se encuentra la función a la que la dll llamará cuando vaya a mostrar un mensaje.
Esta función, rebirá como parametros un tipo cbchar (array de caracteres que componen el mensaje de la dll) por referencia, y un long, por valor, que indica el tamaño de la cadena recibida.
- UNZipPasswordFunction: Sirve para pedir un password al usuario en caso de que el Zip esté protegido
- UNZipService: Pues la verdad es que no se para que sirve
- UNZipReplaceOption: Para preguntar si queremos o no que se sobreescriban los ficheros.
Si no vamos a utilizar alguna de estas funciones, podemos introducir como valor &0 ( Excepto UzipReplaceOption y UNZipPrntFunction que siempre deben contener una dirección válida)
- TotalSizeComp: Retorna el tamaño en bytes del fichero zip.
- TotalSize: Retorna el tamaño en bytes de todos los archivos que componen el fichero zip una vez descomprimidos.
- CompFactor: Retorna el factor de compresión del fichero zip.
- NumFiles: Retorna el número de archivos que componen el fichero zip.
- Comment: Flag que indica si el fichero zip tiene algún comentario.
· La estructura UNZIPOPTIONS:
Son las distintas opciones que queremos que se apliquen a la hora de construir el fichero Zip.
Las más importantes son:
- PromptToOverwrite: Preguntará al usuario si desea sobreescribir el archivo.
- fQuiet: El nivel de mensajes que emitirá (0 = Todos, 1 = Pocos, 2 = Ninguno)
- fVolume: Si deseamos que incluya la etiqueta de volumen
- nvflag: Si es cero extrae los archivos, si es 1 sólo genera una lista con el
nombre de los archivos comprimidos
- C_flag: Si es sensible a mayúsculas (1 insensible, 0 sensible)
- Zip: El nombre del archivo a descomprimir
- ExtractDir: El directorio donde se descomprimira (Null indica que será en donde se encuentra)
Existen bastantes más parametros.
· La estructura ZIPNames: Contiene los nombres (rutas completas) de los archivos a descomprimir.Código [Seleccionar]
Y en el form un modulo con lo dicho y un command con:
ruta = "c:\prueba"
UnZip archivo.zip,rutaPues eso, me lo extrae bien, pero me mezcla lo que hay en las carpetas comprimidas 1 y 2, dejando todo en c:\prueba.
Creo que los tiros andan por:
· La estructura ZIPNames: Contiene los nombres (rutas completas) de los archivos a descomprimir. ¿Sera ésta la clave? Pero no se como utilizarlo
GACIAS POR LEER HASTA AQUÍ jejeje. Cualquier sugerencia/solución es bienvenida! Salu2!
