Unzip Avec Zlib

Question

Je vais finir par devenir chevre 

J'ai le Cls ZipextractionClass
j'ai la Zlib 

et mon code me parait bon pourtant impossible de compresser mon projet 
Private sub cmdExtrairetout_click()

   If Not Monzip.Openzip then MonZip.Openzip (sauvezip)

Call MonZip.ExtractAllFiles("c:\base_gr", true, false)

End if

End sub 

Koi ki ya ki cloche il me dit cette option n'est pas facultative je voi pas ou ca mank 

Non de diou!!!!!!

PCPT · Answer

salut,
copie le lien de la source stp.
l'erreur que tu d&#233;cris vient apparemment d'un param&#232;tre que tu as oubli&#233; de remplir, param&#232;tre demand&#233; par la classe (donc par la dll)

exemple  :   ..... then monzip.openzip (chemin, action)

PCPT    [AFCK]

shaiinna · Answer

la dll c zlib la source est a telecharg&#233; mais je l'ai retouch&#233; pour qu'ell rentre dans mon appli d tas de commande n'etaient pas requis 

http://www.vbfrance.fr/code.aspx?id=24072

Merci de ton aide c unzip Frmunzip.

Merci de ton aide

shaiinna · Answer

sinon javais ca de plus simple mais pareil ca ne marche pas 


Dim zip As ZipExtractionClass

Set zip = New ZipExtractionClass
If zip.OpenZip("C:\Test\Test.zip") Then
   If zip.Extract("C:Test\Extract", True, True) Then
      MsgBox "Extraction termin&#233;e.", vbInformation
   End If
   zip.CloseZip
End If
Set zip = Nothing

PCPT · Answer

"impossible de compresser mon projet" as-tu &#233;crit..... mais tu utilises la d&#233;compression l&#224;....
umm?

PCPT · Answer

au cas ou &#231;&#224; serait juste une erreur.... tu as bien initialis&#233; ton chemin?
NomFichierZip = App.Path & "\Test.zip"
PCPT    [AFCK]

shaiinna · Answer

oui c'est f&#233; correction c compil&#233; mon projet 

Maintenant il me dit que jai une erreur sur une autre form 

Z.addfile "c:
omfichier
Z.Addfile "c:\hhhhh

Z.Writezip ....

PCPT · Answer

"hhhh" est un dossier, pas un fichier !
nomfichier est une variable

si tu veux ajouter c:\base1.mdb tu dois faire
soit :

MonZip.FileAdd("c:\base1.mdb", WithCompletePath)

soit :

MonFichier="c:\base1.mdb"
MonZip.FileAdd(MonFichier, WithCompletePath)

PCPT   [AFCK]

Unzip Avec Zlib

7 réponses

Discussions similaires