Compresser un fichier en VB.NET [Résolu/Fermé]

Signaler
-
Messages postés
24
Date d'inscription
mardi 17 juillet 2007
Statut
Membre
Dernière intervention
24 février 2010
-
Bonjour,
Je connaissais un code pour compresser un fichier, mais je l'ai oublié.
Je sais que ça commençais par "System.IO" mais après, c'est le trou de mémoire complet, alors je voudrais savoir comment on fait.
Merci d'avance.

2 réponses

Messages postés
24
Date d'inscription
mardi 17 juillet 2007
Statut
Membre
Dernière intervention
24 février 2010
8
le vila :

Imports System.IO
Imports System.IO.Compression

Public Function compresserFichier(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

Return False
MsgBox(ex.Message)

End Try

End Function




j'espere ke ce n'est pas tro tard pr toi ;)
bonchance
7
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 65492 internautes nous ont dit merci ce mois-ci


Ouais, bon j'ai deviné moi-même...