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 : Sélectionner tout - Visualiser dans une fenêtre à part
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.

je suis sous .NET 2.0 et je ne peux pas utiliser de librairie autre que celles fournies.

merci