Dim zm As ZipManager
zm.Initialize
zm.Zip(Array As String(File.Combine(File.DirInternal,"image1.png"),File.Combine(File.DirInternal,"image2.png")),File.Combine(File.DirInternal,"myimages.zip"))
If zm.UnZip(File.Combine(File.DirInternal,"myimages.zip"),File.Combine(File.DirInternal,"unzipped")) Then
Log("success")
Else
Log("failed")
End If
Wait For (zm.ZipAsync(Array As String(File.Combine(File.DirInternal,"image1.png"),File.Combine(File.DirInternal,"image2.png")),File.Combine(File.DirInternal,"myimages.zip"))) Complete(Success As Boolean)
Log("zip success " & Success)
If Success Then
Wait For (zm.UnZipAsync(File.Combine(File.DirInternal,"myimages.zip"),File.Combine(File.DirInternal,"images"))) Complete(Success As Boolean)
Log("unzip success " & Success)
End If