Dim Zip As Archiver
Dim toZip() As String 'This array will contain all the files you want to zip
toZip = Array As String("File1.txt", "File2.txt", "File3.txt")
Zip.AsyncZipFiles(File.DirDefaultExternal & "/SomeDirectory/", toZip, File.DirDefaultExternal, "MyZipFile.zip", "Zip")
Sub Zip_ZipDone(Success As Boolean, FilesInZip As Int)
ToastMessageShow(Success & " " & FilesInZip, False)
End Sub
Strange, I could not get the code to work properly. The zip archieve does not contain the files I specified. Can someone please test this and confirm that it works?