Gzip d'un dossier en VB.net

Question

Bonjour,

Est-il possible de zipper avec Gzip un dossier en VB.Net ?
Pour les fichiers, pas de souci mais je n'ai rien trouvé pour les dossiers.

Merci :)

TeBeCo · Answer

hier je me rappel avoir essayé de rajouté un repertoire a une archive je me suis fait envoyé balader par Winrar disant que les repertoire ne pouvait etre archiver, je pense que la methode a adapoter et de le faire en recursif pour mettre tous les fichier un a un dedans mais en specifant leur arborescence simplement

TeBeCo

Smu2015 · Answer

Salut :) merci de ta réponse.

Faire une boucle pour zipper tous les fichiers ca ok mais ca donne autant de zip qu'il y a de fichier.
Je n'est trouvé aucune sources sur la méthode pour un dossier.

Voici le bout de code que j'utilise :

Imports System.IO
Imports System.IO.Compression

Module mod_zip
    Public Function compressionFichier(ByVal cheminSource As String, ByVal cheminDestination As String) As Boolean
        ' cheminSource : chemin complet du fichier à compresser
        ' cheminDestination : chemin complet du fichier compressé à créer
        Try
            ' Le fichier est placé dans le FileStream
            Dim monFileStream As New FileStream(cheminSource, FileMode.Open)


            Dim monBuffer(monFileStream.Length) As Byte
            ' Lecture de l'intégralité du FileStream
            monFileStream.Read(monBuffer, 0, CInt(monFileStream.Length))
            ' Fermeture du FileStream
            monFileStream.Close()
            ' Création du fichier qui va contenir le fichier compressé
            monFileStream = New FileStream(cheminDestination, FileMode.Create)
            ' Compression des données
            Dim monGZipStream As New GZipStream(monFileStream, CompressionMode.Compress, False)
            ' Ecriture des données compressées dans le fichier de destination
            monGZipStream.Write(monBuffer, 0, monBuffer.Length)
            ' Fermeture du GZipStream
            monGZipStream.Close()
            Return True
        Catch ex As Exception
            MessageBox.Show(ex.Message)
            Return False
        End Try
    End Function
End Module

cs_sLaYeR31 · Answer

Salut !
Bon bah je me retrouve dans le même cas que toi alors si jammais quelqun a une solution !
merci d'avance

hugome · Answer

Moi aussi je cherche si quellequn a la soluce Merci
Signature: 
OUAH les code VITE DE l'aspirine j'ai trouver il faut ...

cs_sLaYeR31 · Answer

Yop ! héhé apres 3 ans le post reprend vie !
hum je ne me rappel plus comment j'avais résolu le problème a l'époque mais regarde du coté de cet API System.IO.Compression , en cherchan un peu dans les premiers liens google tu trouvera un tuto ou une description

Bon courage !

Gzip d'un dossier en VB.net

5 réponses

Votre réponse

Discussions similaires