Compresser un fichier en VB.NET
Résolu
Utilisateur anonyme
-
gentelmanmd Messages postés 25 Statut Membre -
gentelmanmd Messages postés 25 Statut Membre -
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.
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.
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