Visual Basic - Comprimir archivos

Life is soft - evento anual de software empresarial
   
Vista:

Comprimir archivos

Publicado por Manuel (2 intervenciones) el 08/11/2007 17:38:28
Saludos,
Tengo una inquietud, alguien me podria ayudar con un codigo que me permita comprimir archivos utilizando visual basic, les agradesco de antemanos el apoyo gracias....
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
información
Otras secciones de LWP con contenido de Visual Basic
- Código fuente de Visual Basic
- Cursos de Visual Basic
- Temas de Visual Basic
- Chat de Visual Basic
información
Códigos de Visual Basic
- Agenda personal
- Spam Lan
- Objeto Printer

RE:Comprimir archivos

Publicado por Román (34 intervenciones) el 08/11/2007 18:03:17
Hola. Es sencillo:

1) Tenés que utlizar la dll de compresion Zlib (ZlibTool)
2) Agregá el OCX a tu proyecto e insertalo en un formulario
3) Con este simple código lo manejas:
ZlibTool1.InputFile = RutaDelArchivoAComprimir
ZlibTool1.OutputFile = RutaDelArchivoZipACrear
ZlibTool1.Compress

Si no tenés el componente podés bajartelo de acá:
http://www.freevbcode.com/source/ZipDB.zip
(incluye un proyecto de ejemplo)
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Comprimir archivos

Publicado por Manuel (2 intervenciones) el 08/11/2007 20:13:55
Gracias Roman,
Me ayudo bastante,ahora justo estoy tratando de comprimir una carpeta, que tiene una estructura de carpetas y archivos, convirtiendolos en un solo archivo con extencion Zip.
He heho pruebas con la libreria zip32.dll, pero solo con archivos, aun no puedo comprimir toda una carpeta completa y de gran tamaño, si tuvieras algun codigo que me ayudara, te lo agradeceria. La idea es comprimir una carpeta de gran tamaño (en Gigas, por ejemplo); pero en un solo archivo de extencion Zip.

Manuel
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar