Discussion :

[vahanar]

Bonjours,
Je ne suis peut être pas dans la bonne rubrique, j'essaie de coder sous visual basic express 2010 version gratuite.

Le probleme que je rencontre est que je dois archiver un grand nombre de fichier éparpillé sur le disque, la taille et le nombre de fichiers ne me permet pas de passer par une copie dans un répertoire avant de les zipper.

J'ai lu différentes documentation comme celle de 7z, et je n'ai pas trouvé d'option qui me permet d'ajouter des fichiers a l'archive

Avez vous une dll a me proposer qui me permettrait de le faire ? ( le format de l'archive n'a pas grand importance ( zip,rar,7z,... )

Une autre solution serait de créer des nodes dans un répertoire vers les fichiers avant de les archiver, mais je n'ai pas trouvé de documentation sur le sujet

[clementmarcotte]

Bonjours,
Avez vous une dll a me proposer qui me permettrait de le faire ? ( le format de l'archive n'a pas grand importance ( zip,rar,7z,... )

Il en existe plusieurs, même des gratuites, que je n'ai pas essayées. Tu vas être d'accord que je ne puisse pas en recommander une ou l'autre:

Quelques gratuites:

ItextSharp
Tutoriel ici


DotNetZip

sharpcompress


Et puis le Framework (à partir de 4.5, je pense, permet maintenant de créer des Zip directement, sans bibliothèque externe, à partir de System.io.packaging

Et puis, fraîchement trouvé, un exemple de zipper un fichier texte en zip avec un mot passe pour VB2010. Tu vas devoir regarder si tu peux l'utiliser sans mot passe et pour d'autres types de fichier.

Cet exemple est basé sur l'utilisation d'un composant payant (Ultimate Zip)

[DotNetMatt]

ItextSharp
Tutoriel ici

Si je ne m'abuse, iTextSharp est juste utile pour les fichiers PDF, je ne crois pas qu'ils aient des fonctionnalites liees aux archives.

Et puis le Framework (à partir de 4.5, je pense, permet maintenant de créer des Zip directement, sans bibliothèque externe, à partir de System.io.packaging

Je confirme, ca evite d'ajouter une librairie externe et ca fonctionne bien pour des cas simples comme ici. Voir in exemple de code ici : Creating Zip archives in .NET (without an external library like SharpZipLib) :

Code VB.NET :

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
Imports System.IO
Imports System.IO.Packaging
 
Namespace ZipSample
	Class Program
		Shared Sub Main(args As String())
			AddFileToZip("Output.zip", "C:\Windows\Notepad.exe")
			AddFileToZip("Output.zip", "C:\Windows\System32\Calc.exe")
		End Sub
 
		Private Const BUFFER_SIZE As Long = 4096
 
		Private Shared Sub AddFileToZip(zipFilename As String, fileToAdd As String)
			Using zip As Package = System.IO.Packaging.Package.Open(zipFilename, FileMode.OpenOrCreate)
				Dim destFilename As String = ".\" + Path.GetFileName(fileToAdd)
				Dim uri As Uri = PackUriHelper.CreatePartUri(New Uri(destFilename, UriKind.Relative))
				If zip.PartExists(uri) Then
					zip.DeletePart(uri)
				End If
				Dim part As PackagePart = zip.CreatePart(uri, "", CompressionOption.Normal)
				Using fileStream As New FileStream(fileToAdd, FileMode.Open, FileAccess.Read)
					Using dest As Stream = part.GetStream()
						CopyStream(fileStream, dest)
					End Using
				End Using
			End Using
		End Sub
 
		Private Shared Sub CopyStream(inputStream As System.IO.FileStream, outputStream As System.IO.Stream)
			Dim bufferSize As Long = If(inputStream.Length < BUFFER_SIZE, inputStream.Length, BUFFER_SIZE)
			Dim buffer As Byte() = New Byte(bufferSize - 1) {}
			Dim bytesRead As Integer = 0
			Dim bytesWritten As Long = 0
			While (InlineAssignHelper(bytesRead, inputStream.Read(buffer, 0, buffer.Length))) <> 0
				outputStream.Write(buffer, 0, bytesRead)
				bytesWritten += bufferSize
			End While
		End Sub
		Private Shared Function InlineAssignHelper(Of T)(ByRef target As T, value As T) As T
			target = value
			Return value
		End Function
	End Class
End Namespace

[clementmarcotte]

Bonjour,

Désolé pour ItextSharp. Comme on dit de par chez-nous : "j'étais dans la Lune."