Compresser un fichier en VB.NET
Résolu
Utilisateur anonyme
-
gentelmanmd Messages postés 24 Date d'inscription Statut Membre Dernière intervention -
gentelmanmd Messages postés 24 Date d'inscription Statut Membre Dernière intervention -
A voir également:
- Compresser un fichier en VB.NET
- Fichier bin - Guide
- Comment réduire la taille d'un fichier - Guide
- Comment ouvrir un fichier epub ? - Guide
- Fichier rar - Guide
- Fichier .dat - Guide
2 réponses
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