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")