高分悬赏，纯粹VB打ZIP压缩包的代码

Question

现在想要把多个文件打成一个ZIP包，但是要用纯粹的VB代码实现，不用压缩只要能储存就行，谁有相关代码，马上给分

Answer 1

纯VB写的：
http://www.dapha.net/down/download.asp?downid=1&id=386

Answer 2

纯VB写的：
http://www.dapha.net/down/download.asp?downid=1&id=386

Answer 3

http://www.dapha.net/down/list.asp?id=1126
http://www.dapha.net/down/list.asp?id=1201
http://www.dapha.net/down/list.asp?id=781
http://www.dapha.net/down/list.asp?id=1261

Answer 4

有没有完全用VB代码实现的，不用DLL不用控件不用API，不需要压缩，只要能把文件包在一起，用Winzip能解开就行了

Answer 5

http://www.dapha.net/down/list.asp?id=386

Answer 6

to: lihonggen0(李洪根,用.NET，标准答案来了)
这个打不开
http://www.dapha.net/down/download.asp?downid=1&id=386

Answer 7

没人知道吗
或者有ZIP文件的格式说明也行，不需要进行文件压缩，只要能按文件未压缩的形式打包就行，还有就是ZIP文件CRC的具体算法