LiveCode Forums.

Code: Select all

command closeAndRoveFromMemory tStack
   local tSubstacks
   put the subStacks of stack tStack into tSubstacks  
   lock messages
   repeat for each line tSubStack in tSubstacks
      close stack tSubStack
   end repeat
   delete stack tStack
   unlock messages
end closeAndRoveFromMemory

Code: Select all

 -- Open the archive for reading.
     revZipOpenArchive pArchive, "read"
     -- As the work happens in the revZipExtractItemToFile in this case, we register the callback here.
     revZipSetProgressCallback "zipProgressCallback"
     
     repeat for each line tItem in sZipListOfFiles
          if char -1 of tItem is "/" then
               -- we ignore extraction of folders, as libzip doesnt handle folders
          else if item 6 of revZipDescribeItem(pArchive,tItem) is "deflate" then
               -- first make sure that the folder exists
               set the itemDel to "/"
               ensureFolder tLocation & "/" & item 1 to -2 of tItem
               set the itemDel to ","
               revZipExtractItemToFile pArchive, tItem, tLocation & "/" & tItem
          else
               put true into tCouldNot
          end if
     end repeat
     revZipCloseArchive pArchive