Hi�Hern�n,
| 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.