2024年4月22日发(作者：foxmail官网)
VB解压缩带密码RAR文件的两者方法
在一些批处理任务的应用程序如安装程序中，需要对压缩文件进行解压缩处理。VB来
实现对压缩文件格式，如RAR、Zip等文件的解压缩，总的来说，有以下两种方法：
一、 采用winrar命令行
一般来说，安装好winrar后，在安装目录中，有个名为的文件。其实该文件
就是Winrar的控制台（命令行）中文手册。下面我们一起来学习一下，和解压缩文件有
关的命令行。
Winrar命令行的通用格式是：
RAR [ - ] [ ]
[ ] [ ]
举例来说 ，为a时 ，表示添加文件到压缩文件中，其中需压缩的文件由列表文件指
定。当为e的时候，就表示解压文件到当前目录。如果需要将压缩文件解压缩到自定义目
录，则通常使用x命令，该命令表示带绝对路径进行解压缩。 -为-y，表示对于所有询问
全部回答是。如果rar文件包含密码，则需要添加开关为"-p密码字符串"，否则不能正常
解压缩。
如果要判断是否winrar命令行是否执行成功，可以通过该命令行的返回值来判断。如
果返回值为0，则成功执行。如果不为0，则执行过程中出现错误。错误代码中有
详细定义。请仔细研读该文件。
在有了上述理论作为基础之后，接下来，我们用VB来实现创建和解压缩一个带密码
的压缩文件。
打开VB6，新建一个标准的Exe工程文件，界面设计如下图所示，控件的名称采用默
认的名称。
图 解压缩界面
程序首先要获得Winrar的安装路径，一般来说，安装好了Winrar后，会在注册表的
HKEY_LOCAL_MACHINESoftwareMicrosoftWindowsCurrentVersionApp Paths
创建一个的路径，该路径下有一个名为Path的字符串项，该项的值保存的就
是Winrar的安装路径。本例中，引用Registry Access Functions对象来实现对注册表的
操作。
Private Function GetWINRARPath() As String '获得Winrar安装路径
……
KeyFound = Value(HKEY_LOCAL_MACHINE,
"SoftwareMicrosoftWindowsCurrentVersionApp ", "Path",
GetWINRARPath)
……
发布者：admin，转转请注明出处：http://www.yc00.com/xitong/1713751955a2311435.html
评论列表（0条）