Case "jobatt"
Dim out As OutputStream
out = File.OpenOutput(File.DirApp,l.Get(0)&".zip",False)
File.Copy2(Job.GetInputStream, out)
out.Close
zip.ABUnzip(File.DirApp & "/" & l.Get(0) & ".zip", File.DirApp & "/datas")
If File.Exists(File.DirApp,l.Get(0) & ".zip") Then Log("exist")
File.Delete(File.DirApp , l.Get(0) & ".zip")