ARCHIVO ZIP Y UNZIP VB6

[Jose Manuel Davila]

ALGUIEN TENDRA ALGUNA RUTINA, DLL, OCX O EJEMPLO ZIP Y UNZIP DESDE VB

TODA AYUDA SERA AGRADECIDA.

GRACIAS

[Jesús M.G.]

Hola, busca en la web del guille www.elguille.info

Saludos.

--
Jesús Morales González
Almuñécar (Granada) España
E-mail: jesusARROBApolizainformaticaPUNTOcom
Mesenger: jemog...@ESTOhotmail.com
www.polizainformatica.com
----
(Guía de buen uso del foro)
http://perso.wanadoo.es/rubenvigon/foro
---
¡Yo uso Google antes de preguntar! ¿y tu?
http://tinyurl.com/gbeq

"Jose Manuel Davila" <jmda...@vianney.com.mx> escribió en el mensaje news:e$8U$PILEH...@TK2MSFTNGP11.phx.gbl...

[Saga]

Otra opcion... yo uso esta:

http://www.codeguru.com/vb/gen/vb_graphics/fileformats/article.php/c6743

Me ha funcionado bien.

Para usarla, es tan facil como esto (del enlace arriba)

Dim oZip as CGZipFiles

set oZip = new CGZipFiles

oZip.ZipFileName = "\MyZip.Zip" 'El nombre del archivo ZIP nuevo.
oZip.AddFile "c:\mystuff\myfiles\*.*" 'Agrega los archivos al
nuevo ZIP.
oZip.AddFile "c:\mystuff\mymedia\*.wav"

If oZip.MakeZipFile <> 0 then 'Crea el nuevo ZIP
MsgBox oZip.GetLastMessage
End If

set oZip = nothing

La pagina tambien tiene un ejemplo de como extraer.

Suerte
Saga

"Jose Manuel Davila" <jmda...@vianney.com.mx> wrote in message
news:e$8U$PILEH...@TK2MSFTNGP11.phx.gbl...

[Jose Manuel Davila]

gracias voy a hecharme un clavado a ver que se agarro

gracias buena vibra

--
Sistemas (SIP)
Vianney
Aguascalientes Ags.
9710330, 9711250, 9181010
Bit_Grinder under nick
____________________________________________________________________________
_______________
Antes de Convertir un Problema hay que ver Si lo Hay, Si lo Hay Solucionarlo
sino no le quites el tiempo a los demas

Jose Manuel Davila
"Saga" <anti...@somewhere.com> escribió en el mensaje
news:%23p5n9eI...@TK2MSFTNGP12.phx.gbl...