Discussion :

[souhail72]

Bonjour
La roume je revient vers vous pour une aide, je seche grave sur cette partie, j'ai parcouru un tas de forum mais aucune solution.
au fait j'ai un dossier " D:\bin\OLS " que je souhaite tout simplement compresser en format zip
une ame charitable ?? merci @ vous

[jopopmk]

Salut,

as-tu regardé du côté de la méthode ZipFile.CreateFromDirectory (namespace System.IO.Compression) ?

[souhail72]

Bonjour
Merci pour le lien, sauf que cette méthode n''est disponible qu'a partir du framework 4.5 hors pour des raison strictement propre à l'entreprise et aux différents environnements, le framework est le 3.5.
donc ça convient pas au projet.
merci

[Max]

Salut

SharpZipLib répondra parfaitement à tes besoins . C'est une bibliothèque éprouvée et reconnue. Pour ma part, je l'utilise en prod depuis des années (et toute la palette : zip, tar, gz, etc.)

La documentation pour manipuler des zip se trouve ici.

[jopopmk]

Arf, du coup va falloir trouver une lib tiers.
Avec une recherche rapide je suis tombé sur celle-ci : DotNetZip
A voir si elle te convient, sinon google devrait pouvoir t'en proposer d'autres avec la bonne recherche.

[souhail72]

Merci MAx pour ton retour
Je suis new sur le vb.net et du coup l'utilisation de ces bibliothèque sont limites, en premier je doit rajouter la bibliothèque à la racine de mon projet ?
merci du soutien

[Max]

Merci MAx pour ton retour
Je suis new sur le vb.net et du coup l'utilisation de ces bibliothèque sont limites, en premier je doit rajouter la bibliothèque à la racine de mon projet ?
merci du soutien

Tu ajoutes la dll où tu veux dans ton projet et après tu l'ajoutes comme référence

[souhail72]

Oui ca je sais le faire par contre je n'ai pas trouvé de Dll sur le projet que j'ai téléchargé ?
merci

[Max]

Oui ca je sais le faire par contre je n'ai pas trouvé de Dll sur le projet que j'ai téléchargé ?
merci

Tu as dû te tromper dans ton téléchargement alors, parce qu'il y a bien une DLL si tu prends ça :

[souhail72]

J'ai pu trouver la dll correspondante au framework 3.5 et je l'ai référencé sauf que ..?

quand j'appel la fonction compressefolder elle a besoin de 3 paramètres que je passe sauf 1.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
'path As String, zipStream As ZipOutputStream, folderOffset As Integer
    CompressFolder(startPath, "", zipPath)

le startPath est une chaine ainsi que le zipPath , par contre le Zipstream j'arrive pas à le passer ?

merci @ vous

[Max]

Je parle pas le VB.NET mais si tu suis leur exemple, au préalable tu dois juste créer un Stream qui correspond à ton futur ZIP :

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
55
56
57
58
59
60
61
62
63
64
65
66
67
Imports System
Imports System.IO
Imports ICSharpCode.SharpZipLib.Core
Imports ICSharpCode.SharpZipLib.Zip
 
' Compresses the files in the nominated folder, and creates a zip file on disk named as outPathname.
'
Public Sub CreateSample(outPathname As String, password As String, folderName As String)
 
    Dim fsOut As FileStream = File.Create(outPathname)
    Dim zipStream As New ZipOutputStream(fsOut)
 
    zipStream.SetLevel(3)       '0-9, 9 being the highest level of compression
    zipStream.Password = password   ' optional. Null is the same as not setting.
 
    ' This setting will strip the leading part of the folder path in the entries, to
    ' make the entries relative to the starting folder.
    ' To include the full path for each entry up to the drive root, assign folderOffset = 0.
    Dim folderOffset As Integer = folderName.Length + (If(folderName.EndsWith("\"), 0, 1))
 
    CompressFolder(folderName, zipStream, folderOffset)
 
    zipStream.IsStreamOwner = True
    ' Makes the Close also Close the underlying stream
    zipStream.Close()
End Sub
 
' Recurses down the folder structure
'
Private Sub CompressFolder(path As String, zipStream As ZipOutputStream, folderOffset As Integer)
 
    Dim files As String() = Directory.GetFiles(path)
 
    For Each filename As String In files
 
        Dim fi As New FileInfo(filename)
 
        Dim entryName As String = filename.Substring(folderOffset)  ' Makes the name in zip based on the folder
        entryName = ZipEntry.CleanName(entryName)       ' Removes drive from name and fixes slash direction
        Dim newEntry As New ZipEntry(entryName)
        newEntry.DateTime = fi.LastWriteTime            ' Note the zip format stores 2 second granularity
 
        ' Specifying the AESKeySize triggers AES encryption. Allowable values are 0 (off), 128 or 256.
        '   newEntry.AESKeySize = 256;
 
        ' To permit the zip to be unpacked by built-in extractor in WinXP and Server2003, WinZip 8, Java, and other older code,
        ' you need to do one of the following: Specify UseZip64.Off, or set the Size.
        ' If the file may be bigger than 4GB, or you do not need WinXP built-in compatibility, you do not need either,
        ' but the zip will be in Zip64 format which not all utilities can understand.
        '   zipStream.UseZip64 = UseZip64.Off;
        newEntry.Size = fi.Length
 
        zipStream.PutNextEntry(newEntry)
 
        ' Zip the file in buffered chunks
        ' the "using" will close the stream even if an exception occurs
        Dim buffer As Byte() = New Byte(4095) {}
        Using streamReader As FileStream = File.OpenRead(filename)
            StreamUtils.Copy(streamReader, zipStream, buffer)
        End Using
        zipStream.CloseEntry()
    Next
    Dim folders As String() = Directory.GetDirectories(path)
    For Each folder As String In folders
        CompressFolder(folder, zipStream, folderOffset)
    Next
End Sub

[souhail72]

Ok merci max, j'essaye de me dépatouiller avec tout cela. merci pour le soutien

[souhail72]

Je reviens vers vous ...
J'ai pu appeler la Dll, là j'ai une erreur de type " Access to the path 'D:\bin\OLS' is denied."
Avez vous une idée?
Merci

[souhail72]

Je reviens vers vous pour une autre erreur, il me dit que les ressources d'un dossier sont utilisé ailleur, meme avec un dispose, cela ne marche pas !
ci joint une capture d'écran

[souhail72]

Problème résolu Merci de votre soutien

[Max]

Problème résolu Merci de votre soutien

Coucou.

N'hésite pas à poster la solution à ton problème, cela pourrait être utile à quelqu'un dans le futur