By courtesy of Djembefola, this library is released as freeware for the benefit of the community. You should send him a big "thank you". This library provides a basic support for Zip, Tar and Gzip archives (including TarGz). It can compress/uncompress synchronously or asynchronously (one task...
Dim Arc As ArchiverPlusZip
Arc.ZipCompression = True
Arc.ZipExecutionMode = Arc.ZIP_EXECMODE_ASYNCHRONOUS
Dim InputFolder As String =dir & "/" & name
Arc.AddFolderToZip(InputFolder, File.Combine(dir & "/",name & ".zip"), "ZIP")
Wait For ZIP_ZipResult(Result As Int, ErrorMsg As String)
Dim bf() As Byte = File.ReadBytes(dir,name &".zip")