El archivo CGZIP se ha comprimido utilizando zip32.dll. archivos y carpetas de Windows pueden ser comprimidos y sin comprimir. Un archivo comprimido se guarda con la extensión ".zip". Los módulos zip32.dll y unzip32.dll son archivos DLL estándar C. Estos dos DLL se distribuyen por Info-ZIP. Info-ZIP es un grupo de desarrolladores que ofrecen versiones gratuitas de la comprimir y descomprimir los servicios públicos. Puede que ya tenga zip32.dll y unzip32.dll en su máquina, ya que se distribuyen con muchas aplicaciones; Sin embargo, si no lo hace, están disponibles para su descarga gratuita en Internet.
Instrucciones
1 Abra un nuevo proyecto DLL ActiveX de Visual Basic. Crear un ".bas" módulo de código con referencias a las funciones disponibles en los archivos zip32.dll y unzip32.dll.
Private Declare Function ZpArchive Lib "zip32.dll" _
(ByVal As Long argc, funame ByVal como secuencia, ByRef argv Como ZIPnames) As Long
Private Declare Function Wiz
SingleEntryUnzip Lib "unzip32.dll"
(ByVal As Long IFNC, ifnv ByRef Como UNZIPnames,
ByVal As Long xfnc, ByRef xfnv Como UNZIPnames,
Como dcll DCLIST, UserF Como USERFUNCTION) As Long
Definir una postal pública y una función de descompresión dentro de este módulo de código. Nombre de este módulo "MainDLL.bas."
2 Añadir un nuevo módulo de clase al proyecto para comprimir y otra para descomprimir. Referencia estas dos clases de la postal pública y descomprimir funciones definidas dentro "MainDLL.bas." Nombrarlos "CGZipFiles" y "CGUnzipFiles." Guardar y compilar el proyecto DLL ActiveX, llamada «CGZipUnzip", a "CGZipUnzip.dll."
3 Crear un nuevo proyecto EXE estándar de Visual Basic. Agregar una referencia a "CGZipUnzip.dll" seleccionando "Proyecto", "Referencias" y marcando la casilla junto a CGZipUnzip.
4 Declarar una variable de objeto para almacenar una referencia a "CGZipUnzip." Utilizar ese objeto hacer referencia a cada una de las llamadas de función disponibles en el zip32.dll y unzip32.dll se define en la nueva DLL "CGZipUnzip" ActiveX. El siguiente código define una referencia a la DLL "CGZipUnzip", establece el nombre de archivo zip, define qué archivos se van a incluir en el archivo zip y crea el archivo zip. Si hay algún error durante la creación de la cremallera, que se muestran en un cuadro de mensaje al usuario.
Dim OZIP Como CGZipUnzip
con OZIP
.ZipFileName = "\ MYZIP.ZIP"
.AddFile App.Path & "*. *"
Si .MakeZipFile <> 0 Then
MsgBox .GetLastMessage
End If
Terminar con
Establecer OZIP = Nada