不用工具，怎样用vb程序进行文件的压缩和解压缩操作？

Question

将一个目录下面的全部文件压缩成一个包，然后再进行解压缩这个包并存放到另外的目录下去。
我不想用winzip之类的压缩工具，因为需要压缩的文件对用户来说是不能打开的，解压缩的时候只能通过调用vb程序来进行。

Answer 1

Dim Rarexe As String 'WINRAR执行文件的位置
    Dim Source As String ' 压缩前的原始文件
    Dim Target As String '压缩后的目标文件
    Dim FileString As String 'Shell指令中的字符串
    Dim Result As Long    Rarexe = "C:\program files\winrar\winrar"
    Source = "C:\try"
    Target = "C:\try.rar"
    FileString = Rarexe & " a " & Target & " " & Source
    Result = Shell(FileString, vbHide)

Answer 2

前段时间讨论怎么激烈,你竟然不知道!http://community.csdn.net/Expert/topic/3622/3622739.xml?temp=.1492426
VB性能大讨论: 顶级专家用VB写的通用压缩算法居然比C++编写的压缩算法慢100倍,现附源代码供高手分析.

Answer 3

phlac(天下) ：拜托，我说的是不想用压缩工具。你说的这个方法我早就知道。laviewpbt(人一定要靠自己)：你的意思是用vb写压缩解压缩程序还不如直接调用winrar之类的工具快？

Answer 4

你的意思是用vb写压缩解压缩程序还不如直接调用winrar之类的工具快？=======================================
当然！人家是商业+专业化了！
还有个方法：调用现成dll

Answer 5

又不想看压缩的算法，又想进行压缩。又怕别人打开。
只有一个办法，就是使用WinRAR或WinZip对该文件进行压缩，压缩完成后，自己往文件里面写入一点什么内容将原文件给破坏了（使用户没办法打开）。自己要读取的时候，先还原文件，然后再解压缩。

Answer 6

我终于快速的浏览完了这个帖子：http://community.csdn.net/Expert/topic/3622/3622739.xml?temp=.1492426  还可以直接用那个算法，喜欢~~~~~~~~~