How to deal with zip files in the wolfram cloud?

This works for me:

a=CreateArchive[FindFile["ExampleData/rose.gif"],$TemporaryDirectory<>"test.zip"];
c=CopyFile[a,CloudObject[zipFile = "rose.zip",Permissions->"Public"],OverwriteTarget->True];
CloudEvaluate[ExtractArchive[zipFile,File["newRose"]]]
CloudEvaluate["LastModificationDate"/.FileInformation["newRose/rose.gif"]]