小编Cha*_*ill的帖子

如何压缩Squeak Smalltalk中的目录？我在StandardFileStream中找到了compressFile方法,但我无法弄清楚如何压缩多个文件或目录.我试验过System-Compression类,但运气不好.提前致谢!

这就是我现在拥有的.我在文件名末尾添加时间戳,所以在这里我想把所有以给定文件名开头的文件放入zip或gzip文件中.

compressFile: aFileName in: aDirectory

| zipped buffer unzipped zipFileName |
zipFileName _ aFileName copyUpTo: $. .
zipped _ aDirectory newFileNamed: (zipFileName, FileDirectory dot, 'zip').
zipped binary; setFileTypeToObject.
zipped _ ZipWriteStream on: zipped.
buffer _ ByteArray new: 50000.  
aDirectory fileNames do: [:f |
    (f beginsWith: zipFileName) ifTrue: [
        unzipped _ aDirectory readOnlyFileNamed: (aDirectory fullNameFor: f).
        unzipped binary.
        [unzipped atEnd] whileFalse:[
            zipped nextPutAll: (unzipped nextInto: buffer)].
        unzipped close]].
zipped close.