如何用bat解压缩rar或zip

实现的方法和详细的操作步骤如下：

1、第一步，右键单击压缩文件，然后选择打开的“属性”选项，如下图所示，然后进入下一步。

2、其次，完成上述步骤后，在打开的弹出窗口中单击“打开文件位置”选项，如下图所示，然后进入下一步。

3、接着，完成上述步骤后，在弹出的窗口中，找到“winrar.exe”并将其放入一个文件夹中，如下图所示，然后进入下一步。

4、然后，完成上述步骤后，打开文本文档并输入代码“for %%i in (a.rar,b.rar,c.rar) do "C:\Program Files\WinRAR\rar.exe" ”，如下图所示，然后进入下一步。

5、随后，完成上述步骤后，在“文件”选项中单击“另存为”选项，如下图所示，然后进入下一步。

6、接着，完成上述步骤后，选择“winrar.exe”所在的文件夹，输入后缀“

 .bat”，然后按Enter键确认，如下图所示，然后进入下一步。

7、最后，完成上述步骤后，转到保存的目录，然后双击“bat”程序即可实现所需的功能了，如下图所示。这样，问题就解决了。

'以下代码非原创

但可行

觉得拷贝无聊者请忽略

'代码定义了两个子程序一个解压一个压缩

.版本

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

”

＋

压缩文件

＋

“

”

＋

解压到文件夹,

真,

)

返回

(“”)

---