Compresser un dossier

Version imprimable

28/06/2016, 14h16
souhail72

Compresser un dossier

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
28/06/2016, 17h45
jopopmk

Salut,

as-tu regardé du côté de la méthode ZipFile.CreateFromDirectory (namespace System.IO.Compression) ?
29/06/2016, 08h06
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
29/06/2016, 09h08
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.
29/06/2016, 09h19
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.
29/06/2016, 09h21
souhail72

Merci 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
29/06/2016, 09h53
Max

Citation:

Envoyé par 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

Tu ajoutes la dll où tu veux dans ton projet et après tu l'ajoutes comme référence ;)
29/06/2016, 09h56
souhail72

ok

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
29/06/2016, 10h30
Max

1 pièce(s) jointe(s)

Citation:

Envoyé par 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

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

Pièce jointe 214237
29/06/2016, 10h35
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:

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

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:

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

30/06/2016, 08h20
souhail72

Ok merci max, j'essaye de me dépatouiller avec tout cela. merci pour le soutien
30/06/2016, 10h03
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
30/06/2016, 14h12
souhail72

1 pièce(s) jointe(s)

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
30/06/2016, 16h32
souhail72

Problème résolu Merci de votre soutien :)
01/07/2016, 10h11
Max

Citation:

Envoyé par souhail72

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 :)