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
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
|
Option Strict On
Imports ICSharpCode.SharpZipLib
Imports System.IO
Public Class ZipLib
Private mCompressionLevel As Integer = 6
Public Property CompressionLevel() As Integer
Get
Return mCompressionLevel
End Get
Set(ByVal value As Integer)
mCompressionLevel = value
End Set
End Property
''' <summary>
''' Diese Funktion komprimiert alle Dateien in einem Ordner
''' </summary>
''' <param name="InputDir">Der Ordner der komprimiert werden soll</param>
''' <param name="FileName">Gibt den Namen an nach dem die ZIP Datei benannt werden soll</param>
''' <param name="OutputDir">Gibt das Ziel für die ZIP Datei an. Wenn kein Ziel übergeben wurde wird die Datei im Parent Ordner erstellt</param>
Public Sub CompressDirectory(ByVal InputDir As String, ByVal FileName As String, Optional ByVal OutputDir As String = "")
Dim Files As New List(Of String)
Dim RelativePath As String
GetAllFiles(InputDir, Files)
If OutputDir = "" Then OutputDir = Path.GetDirectoryName(InputDir)
If Directory.Exists(OutputDir) = False Then Directory.CreateDirectory(OutputDir)
Dim ZFS As New FileStream(OutputDir & "\" & FileName, FileMode.Create)
Dim ZOut As New Zip.ZipOutputStream(ZFS)
ZOut.SetLevel(6)
Dim ZipEntry As Zip.ZipEntry
Dim Buffer(4096) As Byte
Dim ByteLen As Integer
Dim FS As FileStream
Dim ParentDirLen As Integer = InputDir.Length + 1
For i As Integer = 0 To Files.Count - 1
'Relativen Pfad für die Zip Datei erstellen
RelativePath = Files(i).Substring(ParentDirLen)
'ZipEntry erstellen
ZipEntry = New Zip.ZipEntry(RelativePath)
ZipEntry.DateTime = Date.Now
'Eintrag hinzufügen
ZOut.PutNextEntry(ZipEntry)
'Datei in den Stream schreiben
FS = New FileStream(Files(i), FileMode.Open, FileAccess.Read, FileShare.Read)
Do
ByteLen = FS.Read(Buffer, 0, Buffer.Length)
ZOut.Write(Buffer, 0, ByteLen)
Loop Until ByteLen <= 0
FS.Close()
Next
ZOut.Finish()
ZOut.Close()
ZFS.Close()
End Sub
''' <summary>
''' Diese Funktion komprimiert alle angegebenen Dateien die aus einem Ordner stammen und nicht aus unterschiedlichen Ordnern.
''' Das hat den zweck falls man einen Ordner komprimieren will jedoch nicht mit allen Dateien sondern nur mit bestimmten Dateien.
''' Dadurch bleibt die Ordnerstruktur erhalten wenn das Archiv erstellt wurde. Im Gegenstatz zur Funktion "CompressFiles" die keine Ordnerstrukuren erstellt
''' </summary>
''' <param name="InputFiles">Die Dateien die komprimiert werden sollen</param>
''' <param name="FileName">Gibt den Namen an nach dem die ZIP Datei benannt werden soll</param>
''' <param name="OutputDir">Gibt das Ziel für die ZIP Datei an. Wenn kein Ziel übergeben wurde wird die Datei im Parent Ordner erstellt</param>
Public Sub CompressDirectory(ByVal InputFiles As List(Of String), ByVal FileName As String, ByVal OutputDir As String)
Dim RelativePath As String
If Directory.Exists(OutputDir) = False Then Directory.CreateDirectory(OutputDir)
Dim ZFS As New FileStream(OutputDir & "\" & FileName, FileMode.Create)
Dim ZOut As New Zip.ZipOutputStream(ZFS)
ZOut.SetLevel(6)
Dim ZipEntry As Zip.ZipEntry
Dim Buffer(4096) As Byte
Dim ByteLen As Integer
Dim FS As FileStream
Dim ParentDirLen As Integer = Path.GetDirectoryName(InputFiles(0)).Length + 1
For i As Integer = 0 To InputFiles.Count - 1
'Relativen Pfad für die Zip Datei erstellen
RelativePath = InputFiles(i).Substring(ParentDirLen)
'ZipEntry erstellen
ZipEntry = New Zip.ZipEntry(RelativePath)
ZipEntry.DateTime = Date.Now
'Eintrag hinzufügen
ZOut.PutNextEntry(ZipEntry)
'Datei in den Stream schreiben
FS = New FileStream(InputFiles(i), FileMode.Open, FileAccess.Read, FileShare.Read)
Do
ByteLen = FS.Read(Buffer, 0, Buffer.Length)
ZOut.Write(Buffer, 0, ByteLen)
Loop Until ByteLen <= 0
FS.Close()
Next
ZOut.Finish()
ZOut.Close()
ZFS.Close()
End Sub
''' <summary>
''' Diese Funktion komprimiert Dateien zu einem ZIP-Archiv.
''' </summary>
''' <param name="InputFiles">Die Liste mit Dateien die komprimiert werden soll.</param>
''' <param name="FileName">Der Dateiname der ZIP-Datei (ohne Pfad).</param>
''' <param name="OutputDir">Das Ausgabeverzeichnis wo die ZIP Datei gespeichert werden soll.</param>
''' <remarks></remarks>
Public Sub CompressFiles(ByVal InputFiles As List(Of String), ByVal FileName As String, ByVal OutputDir As String)
Dim ZFS As New FileStream(OutputDir & "\" & FileName, FileMode.Create)
Dim ZOut As New Zip.ZipOutputStream(ZFS)
ZOut.SetLevel(6)
Dim ZipEntry As Zip.ZipEntry
Dim Buffer(4096) As Byte
Dim ByteLen As Integer
Dim FS As FileStream
For i As Integer = 0 To InputFiles.Count - 1
'ZipEntry erstellen
ZipEntry = New Zip.ZipEntry(Path.GetFileName(InputFiles(i)))
ZipEntry.DateTime = Date.Now
'Eintrag hinzufügen
ZOut.PutNextEntry(ZipEntry)
'Datei in den Stream schreiben
FS = New FileStream(InputFiles(i), FileMode.Open, FileAccess.Read, FileShare.Read)
Do
ByteLen = FS.Read(Buffer, 0, Buffer.Length)
ZOut.Write(Buffer, 0, ByteLen)
Loop Until ByteLen <= 0
FS.Close()
Next
ZOut.Finish()
ZOut.Close()
ZFS.Close()
End Sub
''' <summary>
''' Diese Funktion dekomprimiert eine ZIP-Datei.
''' </summary>
''' <param name="FileName">Die Datei die dekomprimiert werden soll.</param>
''' <param name="OutputDir">Das Verzeichnis in dem die Dateien dekomprimiert werden sollen.</param>
Public Sub DecompressFile(ByVal FileName As String, ByVal OutputDir As String)
Dim ZFS As New FileStream(FileName, FileMode.Open)
Dim ZIN As New Zip.ZipInputStream(ZFS)
Dim ZipEntry As Zip.ZipEntry
Dim Buffer(4096) As Byte
Dim ByteLen As Integer
Dim FS As FileStream
Dim InZipDirName As String
Dim InZipFileName As String
Dim TargetFileName As String
Do
ZipEntry = ZIN.GetNextEntry
If ZipEntry Is Nothing Then Exit Do
InZipDirName = Path.GetDirectoryName(ZipEntry.Name) & "\"
InZipFileName = Path.GetFileName(ZipEntry.Name)
If Directory.Exists(OutputDir & "\" & InZipDirName) = False Then Directory.CreateDirectory(OutputDir & "\" & InZipDirName)
If InZipDirName = "\" Then InZipDirName = ""
TargetFileName = OutputDir & "\" & InZipDirName & InZipFileName
FS = New FileStream(TargetFileName, FileMode.Create)
Do
ByteLen = ZIN.Read(Buffer, 0, Buffer.Length)
FS.Write(Buffer, 0, ByteLen)
Loop Until ByteLen <= 0
FS.Close()
Loop
ZIN.Close()
ZFS.Close()
End Sub
Private Sub GetAllFiles(ByVal Root As String, ByRef FileArray As List(Of String))
Try
Dim Files() As String = System.IO.Directory.GetFiles(Root)
Dim Folders() As String = System.IO.Directory.GetDirectories(Root)
For i As Integer = 0 To UBound(Files)
FileArray.Add(Files(i).ToString)
Next
For i As Integer = 0 To UBound(Folders)
GetAllFiles(Folders(i), FileArray)
Next
Catch Ex As Exception
End Try
End Sub
End Class
|