怎么解压rar文件

xbzx

已测试ZIP压缩不能解压RAR文件

私念

RAR解压.rar (149.7 KB, 下载次数: 324)

2011-8-21 04:41 上传

点击文件名下载附件
有模块和例程，记得给最佳答案

易团俊

.版本 2

.子程序 压缩_WinRAR_压缩, 文本型, 公开, 本命令需要安装WinRAR
.参数 被压缩的文件, 文本型, 数组, 文件和文件夹都可以
.参数 压缩到文件, 文本型, , 全路径和rar\zip文件名
.参数 WinRAR地址, 文本型, 可空, 如果注册表内没有WinRAR的信息。但是安装了的。就需要写 例：C:\Program Files\WinRAR\WinRAR.exe
.局部变量 易团俊, 整数型
.局部变量 被压缩信息, 文本型

易团俊 ＝ 0
被压缩信息 ＝ “”
.如果真 (是否为空 (WinRAR地址))
    WinRAR地址 ＝ 取文本注册项 (#本地机器, “SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\WinRAR.exe\”, )
.如果真结束
.如果真 (WinRAR地址 ＝ “”)
    返回 (“找不到WinRAR目录”)
.如果真结束
.计次循环首 (取数组成员数 (被压缩的文件), 易团俊)
    被压缩信息 ＝ 被压缩信息 ＋ “ ” ＋ 被压缩的文件 [易团俊]
.计次循环尾 ()
运行 (WinRAR地址 ＋ “ a -ep1 -scul -r0 -iext ” ＋ 压缩到文件 ＋ 被压缩信息, 真, )
返回 (“”)

.子程序 压缩_WinRAR_解压, 文本型, 公开, 本命令需要安装WinRAR
.参数 压缩文件, 文本型, , 全路径和rar\zip文件名
.参数 解压到文件夹, 文本型, , 文件夹全路径
.参数 WinRAR地址, 文本型, 可空, 如果注册表内没有WinRAR的信息。但是安装了的。就需要写 例：C:\Program Files\WinRAR\WinRAR.exe

.如果真 (是否为空 (WinRAR地址))
    WinRAR地址 ＝ 取文本注册项 (#本地机器, “SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\WinRAR.exe\”, )
.如果真结束
.如果真 (WinRAR地址 ＝ “”)
    返回 (“找不到WinRAR目录”)
.如果真结束
运行 (WinRAR地址 ＋ “ x -iext -ow -er ” ＋ 压缩文件 ＋ “ ” ＋ 解压到文件夹, 真, )
返回 (“”)

逆风啊

擦，楼上真快

俺哥是将军

楼上我看不懂 是不是需要什么模块

逆风啊

不要模块啊，说简单点就是用系统自带的winrar来解压- -

qq420345437

安装有RAR 软件。。。调用它的DOC命令就可以了。。。。。{:3_244:}

乖乖仔

{:3_233:}晕，我还以为连rar文件都不会解压呢，原来是这个

四海铭洋

好多东西，学习了

sega070

这问题我还没有学到呢!