vb 编写rar压缩解压缩程序

******************************* * UnRar 动态库示例 for VB6 * ******************************* 需求: - Microsoft Visual Basic 6 (或SP3补丁包) - 请把文件夹的 UnRar.dll 拷贝到你的系统目录下，如 \windows\system32 怎样使用 ? --------------- 过程 : - Lister(Fichier as String) : 列表压缩文件清单. - Decompress(Fichier As String, Rep As String, Optional Password As String) : 提取压缩包全部文件! 事件 : - RarFileChange(FichierEnCours as RarFile) : 在处理另一个压缩文件时产生. - Progression(pourcent as integer) : 操作产生的连续性改变. 餐宿 : - Fichier : 完整文件路径和扩展名 ! - Rep : 解压缩到文件夹. (如有必要则创建) - Password : 密码 ? - FichierEnCours : 处理压缩文件. - pourcent : 完成的百分比 RarFile 属性 : - NomArchive : 压缩文件名称（文件名称与完整路径） - NomFichier : 文件正在处理中与完整路径 - Flags : 文件标识 - TailleCompressee : 文件压缩大小 - TailleDecompressee : 未压缩文件大小 - CRCFichier : 文件 CRC 校验 提醒： Unrar.dll动态库，有时会产生提取到文件夹的错误，即使该文件夹已创建，可以设置为FALSE ，以避免错误。 未来功能 : -------- 目前压缩还没有编写，待分析完毕Unrar.dll动态库再进行补充，也欢迎大家进行扩展看发。 GreGleTurK