SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: lejaro2003 en Jueves 15 de Abril de 2004, 15:57

Título: Necesito Info De Como "zipear" Archivos
Publicado por: lejaro2003 en Jueves 15 de Abril de 2004, 15:57

Necesito comprimir archivos, ya sea con WinZip, o algun compresor, pero a traves de codigo, sin que el usuario intervenga, ni se entere, he buscado en msdn pero no encuentro, como hacerlo.
Si alguien tiene algun tipo de dato por favor comentenme...

lejaro2003@yahoo.com.ar

Título: Re: Necesito Info De Como "zipear" Archivos
Publicado por: Brroz en Jueves 15 de Abril de 2004, 17:20

Hola lejaro2003.

Supongo que por ahí habrá más de un ocx o dll para hacer esto, pero también lo puedes lograr de una forma muy sencilla usando la función Shell con el mandato correspondiente. Por ejemplo:

Usando pkzip:

Código: Text

1.  
2. Shell "C:\Ruta\pkzip.exe -a archivo.zip archivo.xxx"
3.  
4.  

Tal como hace el asistente de empaquetado y distribución de VB

Código: Text

1.  
2. SHELL "C:\ARCHIVOS DE PROGRAMA\MICROSOFT VISUAL STUDIO\VB98\WIZARDS\PDWIZARD\MAKECAB.EXE /f ""proyecto.DDF"""
3.  
4.  

(por supuesto sustituye el path de vb por el que corresponda) y deberás crear u obtener de alguna forma el archivo DDF. Aquí tienes un ejemplo de un fichero DDF:

Citar

.OPTION EXPLICIT
.Set Cabinet=off
.Set Compress=off
.Set MaxDiskSize=1457664
.Set ReservePerCabinetSize=6144
.Set DiskDirectoryTemplate=".."
.Set CompressionType=MSZIP
.Set CompressionLevel=7
.Set CompressionMemory=21
.Set CabinetNameTemplate="nombre_*.CAB"
"Setup.Lst"
"setup.exe"
.Set Cabinet=on
.Set Compress=on
"archivo.dll"
"MSVBVM60.DLL"
"OLEAUT32.DLL"
"OLEPRO32.DLL"
"ASYCFILT.DLL"
"STDOLE2.TLB"
"COMCAT.DLL"
"VB6ES.DLL"
"MSCOMCTL.OCX"
"MSCMCES.DLL"
"MSFLXGRD.OCX"
"FLXGDES.DLL"
"SETUP1.EXE"
"VB6STKIT.DLL"
"ST6UNST.EXE"

Suerte.

Título: Re: Necesito Info De Como "zipear" Archivos
Publicado por: Gelion en Jueves 15 de Abril de 2004, 23:53

Bueno, tengo unos ejemplos

Para comprimir y descomprimir ZIP en Visual Basic

Espero que te sirvan