1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
| ' Verify that the target directory exists
If Not System.IO.Directory.Exists(Path.GetDirectoryName(strZipFilename)) Then
System.IO.Directory.CreateDirectory(Path.GetDirectoryName(strZipFilename))
End If
'Verify if the file already exist
Using FileToOpen As FileStream = New FileStream(strZipFilename, FileMode.Append)
Using archive As ZipArchive = New ZipArchive(FileToOpen, ZipArchiveMode.Update)
For Each logFile As String In _listOfFiles
archive.CreateEntryFromFile(logFile, logFile, CompressionLevel.Optimal)
'Dim FileToAdd As ZipArchiveEntry = archive.CreateEntry(logFile)
'Using writer As StreamWriter = New StreamWriter(FileToAdd.Open())
'End Using
Next
End Using
End Using |
Partager