Archive creee avec gzipstream est invalide
Bonjour forum,
j'essaie de trouver une methode qui me permettrait de compresser un fichier en .zip tout en utilisant gzipstream.
voici le code:
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54
|
Dim bufferWrite() As Byte
Dim fsSource As FileStream
Dim gzCompressed As GZipStream
Dim fsDest As FileStream
' open file from user
If (OpenFileDialog1.ShowDialog() = DialogResult.OK) Then
fsSource = OpenFileDialog1.OpenFile
End If
' If the user has selected a path where to put the compressed file
If (SaveFileDialog1.ShowDialog() = DialogResult.OK) Then
' Set the buffer size to the size of the file
ReDim bufferWrite(fsSource.Length)
' Read the data from the stream into the buffer
fsSource.Read(bufferWrite, 0, bufferWrite.Length)
' Open the FileStream to write to
fsDest = New FileStream(SaveFileDialog1.FileName, FileMode.OpenOrCreate, FileAccess.Write)
' Will hold the compressed stream created from the destination stream
gzCompressed = New GZipStream(fsDest, CompressionMode.Compress, True)
' Write the compressed stream from the bytes array to a file
gzCompressed.Write(bufferWrite, 0, bufferWrite.Length)
' Close the streams
fsSource.Close()
gzCompressed.Close()
fsDest.Close()
End If |
le code me semble correct et le fichier est bien creer pourtant lorsque j'essaie d'ouvrir l'archive, j'ai un message d'erreur m'indiquant que l'archive est mauvaise.:cry:
je suis sous .NET 2.0 et je ne peux pas utiliser de librairie autre que celles fournies.
merci