Hi,
I try to zip some files. The sub zipend_zipprogression works, it seems to compress all the files, but zipend_zipdone is never called.
What can I do?
Thank you
Peter
I try to zip some files. The sub zipend_zipprogression works, it seems to compress all the files, but zipend_zipdone is never called.
What can I do?
Thank you
Peter
B4X:
Sub Process_Globals
Dim ar As Archiver
End Sub
Sub Globals
Dim zipfilename As String
End Sub
Sub Activity_Create(FirstTime As Boolean)
If FirstTime Then
zipfilename = Main.outdir & "/" & Main.projectnumber & ".zip"
File.Delete (Main.outdir,Main.projectnumber & ".zip")
File.MakeDir (Main.outdir,"zip")
Dim zipdir As String = File.combine (Main.outdir,"zip")
...
Now I copy about 15 files to zipdir
...
ar.AsyncZipFolder (zipdir,Main.outdir,Main.projectnumber & ".zip","zipend")
End If
End Sub
Sub zipend_zipprogression (count As Int, Filename As String)
Log (count & " " & Filename)
End Sub
Sub zipend_zipdone (completedwithouterror As Boolean, nbOfFiles As Int)
Msgbox (completedwithouterror,nbOfFiles)
Basis.SendMail ("[email protected]","Zip vom Projekt","Zip",zipfilename)
Activity.Finish
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub