| zip fileName myInputDir | myInputDir := #('Users' 'data' 'files' 'arabic') inject: '' into: [:path :suffix | path, FileDirectory slash , suffix]. zip := ZipArchive new. zip addTree: ( FileDirectory default fullName , myInputDir ) match: [: e | true ]. fileName := 'foo.zip'. zip writeToFileNamed: fileName. 2012/1/2 Larry White <ljw1001@gmail.com>:
zip := ZipArchive new. Â Â Â Â zipArchive addDirectory: '/Users/data/files/arabic' as: 'arabic'. fileName := 'Users/data/downloads/foo.zip'. zip writeToFileNamed: fileName.
-- Hernán Morales Information Technology Manager, Institute of Veterinary Genetics. National Scientific and Technical Research Council (CONICET). La Plata (1900), Buenos Aires, Argentina. Telephone: +54 (0221) 421-1799. Internal: 422 Fax: 425-7980 or 421-1799.