Compresser un fichier en VB.NET
Résolu/Fermé
Utilisateur anonyme
-
2 févr. 2008 à 13:26
gentelmanmd Messages postés 24 Date d'inscription mardi 17 juillet 2007 Statut Membre Dernière intervention 24 février 2010 - 4 sept. 2009 à 16:39
gentelmanmd Messages postés 24 Date d'inscription mardi 17 juillet 2007 Statut Membre Dernière intervention 24 février 2010 - 4 sept. 2009 à 16:39
A voir également:
- Compresser un fichier en VB.NET
- Comment compresser un fichier pdf - Guide
- Fichier rar - Guide
- Fichier host - Guide
- Fichier iso - Guide
- Comment ouvrir un fichier epub ? - Guide
2 réponses
gentelmanmd
Messages postés
24
Date d'inscription
mardi 17 juillet 2007
Statut
Membre
Dernière intervention
24 février 2010
8
4 sept. 2009 à 16:39
4 sept. 2009 à 16:39
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
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