Compresser un fichier en format zip

Signaler
Messages postés
161
Date d'inscription
mardi 12 juin 2007
Statut
Membre
Dernière intervention
22 avril 2009
-
Messages postés
2676
Date d'inscription
vendredi 28 juin 2002
Statut
Membre
Dernière intervention
13 janvier 2016
-
Bonjour à tous !!

Je voudrai compresser un fichier au format zip dans le répertoire où il se trouve !!!
Quelqu'un peut m'aider svp !!

merci d'avance

4 réponses

Messages postés
14763
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
25 janvier 2021
151
Bonjour

Il y a quelques sources qui en parlent (au minima VB6), cherche sur VBFrance. Puis adapte si besoin.

Balèse la personne qui a pensé au pansement à penser (ou à panser, pensée).
VB (6, .NET1&2), C++, C#.Net1
Mon site
Messages postés
206
Date d'inscription
lundi 22 novembre 1999
Statut
Membre
Dernière intervention
3 juillet 2008

Bonjour,

Meme en VBA (sous Excel par exemple), donc en VB, vbnet, FBSL etc... tu peux compresser des fichiers ( sous XP ) au format zip de cette manière :

Sub zzz()
    ZMakeZIPFile "C:\aa\Test.zip", "C:\Monfichier.xls"
End Sub

Public Sub ZMakeZIPFile(ByVal sZIPFileName, ByVal sFileName)
Dim oShell As Object, oZip As Object

    Open sZIPFileName For Output As #1
        Print #1, Chr$(80) & Chr$(75) & Chr$(5) & Chr$(6) & String(18, 0)
    Close #1
   
    ' Copy the file in the compressed folder
    Set oShell = CreateObject("Shell.Application")
    Set oZip = oShell.Namespace(sZIPFileName)
   
    oZip.CopyHere sFileName
   
    ' Keep script waiting until Compressing is done
    Do Until oZip.Items.Count = 1
        DoEvents
    Loop
   
    Set oZip = Nothing
    Set oShell = Nothing

End Sub

--=:: Gérôme GUILLEMIN (auteur du langage FBSL )
Messages postés
14008
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
74
Salut
Dans la recherche sur le site, tape "ZIP" et lance une recherche parmi les Codes en .Net seulement et tu auras ta réponse.

PS : Gérome, ça faisait longtemps !

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

<hr />Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)
Messages postés
2676
Date d'inscription
vendredi 28 juin 2002
Statut
Membre
Dernière intervention
13 janvier 2016
16
salut,

sinon, tu peux utiliser la classe GzipStream mais cela ne produit pas un fichier ZIP mais GZIP comme les .gz si courant sous linux...

ShareVB