Zip up a complete directory structure
Last updated at 8:55 am UTC on 16 May 2019
Zip up a complete directory structure and place the zip in the parent directory.
(as Winzip does from the explorer menu choice).
Anyone care to add a menu item in FileList? :-)
| archive |
dirName := 'd:\images'.
archive := ZipArchive new.
dir := FileDirectory on: dirName.
dir fullNamesOfAllFilesInSubtree do:[:fn|
entry := archive addFile: fn as: (fn last: (fn size - dirName size - 1)).
entry desiredCompressionMethod: ZipArchive compressionDeflated.
].
archive writeToFileNamed: (dir containingDirectory fullNameFor: dir localName, '.zip'); close.
