compresser un fichier en format zip

Question

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

NHenry · Answer

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

GEDDi · Answer

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 )

cs_Jack · Answer

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)

ShareVB · Answer

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

Compresser un fichier en format zip

4 réponses

Votre réponse

Discussions similaires