文件压缩与解压完整代码

ljw990485 · 发表于 2011-11-13 16:42

本帖最后由 ljw990485 于 2011-11-13 17:18 编辑

本帖申请加为精华和技术分等
示例内有文件压缩与解压类ClassZip的完整代码，若想用到你自己的代码中，自己去导出。

要想用实验，先拷贝一个文件放在C:\，改名为1，再分别执行压缩和解压过程，压缩后的文件为2，从文件2解压生成的文件为3，比较一下，文件1与文件3是否完全一致？

特别声明：本压缩解压类代码源代码为俄罗斯人所写的VB代码，本人将之修改为能在VBA环境中运行的代码。此程序的压缩率没有专业压缩软件高，但程序不依赖任何外部程序，故程序是可控的。

经典应用：
巧用剪切板导出包对象内的文件

把某些文件(比如组件/控件、word文档)压缩后放在Excel工作簿里面的包对象里面，一旦发现用户计算机没有安装这些组件、或删除了这些word文档，就从包内程序导出再解压出來，确保你的程序继续运行，提高程序的健壮性

当然，更好的方法是从内存里面直接解压，本人已经实现。

ljw990485 · 发表于 2011-11-13 16:57

自己顶一下

Moneky · 发表于 2011-11-13 17:01

本帖最后由 Moneky 于 2011-11-13 17:08 编辑

收藏+顶一下，将来可能用得着。谢谢楼主分享！
刚刚试了一下，可以正确压缩和解压。但有一个地方可以改进。目前代码在压缩和解压前，都会不管三七二十一的去删除目标文件，这样很危险，其实可以考虑在那一句加一个提示性语句，或者自动重命名的。

ljw990485 · 发表于 2011-11-13 17:10

本帖最后由 ljw990485 于 2011-11-13 18:08 编辑

Moneky 发表于 2011-11-13 17:01
收藏+顶一下，将来可能用得着。谢谢楼主分享！
刚刚试了一下，可以正确压缩和解压。但有一个地方可以改进。 ...

这个没什么问题，自己在压缩或解压前写代码判断就是了

作为一个压缩解压代码，只是执行相应的操作，没必要搞那么多其它的东西，这种也是OOP编程思想的原则

kuangben8 · 发表于 2011-11-13 17:27

先留个脚印！！

ljw990485 · 发表于 2011-11-13 21:09

那么多人看，不少人下载，回复不多

看来高难度技术贴，看懂的人不多

baomaboy · 发表于 2011-11-14 02:10

本帖最后由 baomaboy 于 2011-11-14 19:17 编辑

谢谢分享，那个俄罗斯人好牛x，楼主给vb给转vba辛苦了。

ljw990485 · 发表于 2011-11-16 23:21

再顶顶，版主还没出现

吾股丰登 · 发表于 2011-11-16 23:29

貌似很不错留脚印先

china047 · 发表于 2011-11-17 14:24

先顶一下,哪天会用得着的!{:soso_e100:}

		自动登录	找回密码
密码			免费注册

[原创] 文件压缩与解压完整代码

评分