Bonjour forum,
j'essaie de trouver une methode qui me permettrait de compresser un fichier en .zip tout en utilisant gzipstream.
voici le code:
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.
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
je suis sous .NET 2.0 et je ne peux pas utiliser de librairie autre que celles fournies.
merci
Partager