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
| Private Sub compresser(ByVal fileZip As String, ByVal fileXml As String)
Try
'--- Definit et exécute
Dim nomzip As String = fileZip
Dim ZipStream As ZipOutputStream = New ZipOutputStream(File.Create(nomzip))
ZipStream.SetLevel(9)
Dim i As Integer = 0
Dim fichier As String = fileXml
Dim fs As FileStream = File.OpenRead(fichier)
Dim buffer(fs.Length) As Byte
fs.Read(buffer, 0, buffer.Length)
Dim entry As ZipEntry = New ZipEntry(Path.GetFileName(fichier))
ZipStream.PutNextEntry(entry)
ZipStream.Write(buffer, 0, buffer.Length)
'--- Termine la procédure de compression
ZipStream.Finish()
'--- ferme le fichier de compression
ZipStream.Close()
Catch Ex As Exception
'--- La compression ne s'est pas bien passée, une erreur est survenue
MessageBox.Show("Erreur lors de la création de l'archive" & Microsoft.VisualBasic.Chr(10) & "Erreur : " + Ex.Message, "Erreur")
End Try
End Sub |
Partager