Generar zip via programacion.

[Javier Bernal]

Tengo la aplicacion para crear un archivo zip, ya sea de un directorio o un archivo, usando dll, pero resulta que las quiero bajar y me aparecen varias cosas que no necesito y simplemente no continuo por tanto software malicioso, las dll que necesito si alguien las tiene ZBITZ,DLL y SAWZIP.DLL

Se agradece su aportacion

[Fabio Ramirez]

Hola Javier....

Mira yo utilizo esto hace mucho tiempo.... y sin problemas... ni dlll ni nada de eso, espero te sirva..

************************************

* COMPRIMIR

************************************

cNuevoZip = "C:MiArchivo.Zip"

cOrigen = "c:Directorio"

Strtofile(Chr(0x50)+Chr(0x4B)+Chr(0x05)+Chr(0x06)+Replicate(Chr(0),18),cNuevoZip)

oShell = Createobject("Shell.Application")

For Each oArchi In oShell.NameSpace(cOrigen).Items

   oShell.NameSpace(cNuevoZip).CopyHere(oArchi)

Endfor

 

************************************

* DESCOMPRIMIR

************************************

cMiZip = "C:MiArchivo.Zip"

cDirDesti = "c:Directorio"

oShell = Createobject("Shell.Application")

For Each oArchi In oShell.NameSpace(cMiZip).Items

   oShell.NameSpace(cDirDesti).CopyHere(oArchi)

EndFor

[Roberto Tello & Asoc. - Estudio Informatico]

Se pueder usar este codigo pero para algunos archivos... ejemplo *.xlsx....???

sdos.-

[Marcelo Barberis]

estimado yo antes utilizaba esto cuando tenia tablas nativa usando winrar

para comprimir

        *!* Borrar el archivo rar que se encuentra en la carpeta backup para solo quede uno solo
        DELETE FILE dir_backup+"COPIA*.*"
        *!* **********************************************************       
        SET DEFAULT TO &dir_datos
        *!* Determinar el formato de compression
        karchi = Getenv("ProgramFiles")+"\WinRAR\WinRar.exe"
        IF FILE('&karchi', 1)
            WAIT WINDOW NOWAIT 'Comprimiendo archivos.....'
            cfilename = karchi
            caction = "open"
            cparameter = ' A &destino_rar *.dbc *.dcx *.dct *.dbf *.cdx *.fpt'
            =shellexecute(0, caction, cfilename, cparameter, "", 1)
        ELSE
            =MESSAGEBOX('No se encuentra el módulo de Copias de Seguridad.', 04144, 'Aviso')
        ENDIF
        WAIT CLEAR
        grabado_en = ALLTRIM(THISFORM.lbl_ruta.Caption)
        cmessagetitle = 'Copia de Respaldo'
        cmessagetext = 'COPIA CONCLUIDA'+CHR(13)+CHR(13)+'Fue guardado en  :  '+grabado_en+CHR(13)+CHR(13)+'El Archivo              :  '+arch_rar
        ndialogtype = 0+64+0
        =MESSAGEBOX(cmessagetext, ndialogtype, cmessagetitle)
        CLOSE DATABASES ALL

descomprimir

        arch_rar = ALLTRIM(THISFORM.txt_rutae0_.Value)
        *!* Determinar el formato de compression
        karchi = Getenv("ProgramFiles")+"\WinRAR\WinRar.exe"
        IF FILE('&karchi', 1)
            WAIT WINDOW NOWAIT 'Comprimiendo archivos.....'
            cfilename = karchi
            caction = "open"
            cparameter = ' X -O+ &arch_rar &dir_datos'
            =shellexecute(0, caction, cfilename, cparameter, "", 1)
        ELSE
            =MESSAGEBOX('No se encuentra el módulo de Copias de Seguridad.', 04144, 'Aviso')
        ENDIF
        WAIT CLEAR
        cmessagetitle = 'Restaurar Datos'
        cmessagetext = 'RECUPERACION DE LA INFORMACION  CONCLUIDA'+CHR(13)+CHR(13)+'Fue Restaurado en  :  '+CHR(13)+CHR(13)+dir_datos
        ndialogtype = 0+64+0
        =MESSAGEBOX(cmessagetext, ndialogtype, cmessagetitle)

--

Marcelo Barberis Gutierrez
Sistemas Informaticos
Villa Montes - Bolivia
Telef.: +591-76831064

[Fabio Ramirez]

Hola Roberto Tello & Asoc

Lo puedes Utilizar para cualquier tipo de Archivo... o carpeta.

El miércoles, 20 de mayo de 2015, 12:05:13 (UTC-5), Roberto Tello & Asoc. - Estudio Informatico escribió:

Se pueder usar este codigo pero para algunos archivos... ejemplo *.xlsx....???

sdos.-