EvilGost
Messages postés235Date d'inscriptionlundi 16 décembre 2002StatutMembreDernière intervention16 mai 2011
-
31 janv. 2007 à 15:18
EvilGost
Messages postés235Date d'inscriptionlundi 16 décembre 2002StatutMembreDernière intervention16 mai 2011
-
2 mars 2007 à 14:47
Bonjour à tous les développeurs,
je suis actuellement confronté à un problème. Pour mon appli, je dois compresser un répertoire complete, via GZip, intégré au FramWork 2.0, et accessible via System.Io.Compression en Visual Basic .Net (j'utilise le 2005).
Cependant voilà, j'ai bien trouvé sur le net comment compresser un fichier, mais je ne trouve pas comment je peux compresser un répertoire complet (avec des fichiers et des sous-répertoires)...
Si quelqu'un sait comment faire...
En vous remerciant par avance
Voici déjà le code pour compresser un fichier, prit sur www.developpez.com
PublicFunction compresserFichier(ByVal cheminSource AsString, ByVal cheminDestination AsString) AsBoolean
' cheminSource : chemin complet du fichier à compresser
' cheminDestination : chemin complet du fichier compressé à créer
Try
' Le fichier est placé dans le FileStream
Dim monFileStream AsNew FileStream(cheminSource, FileMode.Open)
Dim monBuffer(monFileStream.Length) AsByte
' 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 AsNew 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()