vb.net批量解压文件 vba调用7z解压缩

怎么批量解压文件并分别解压到单独的文件夹中

1、首先我们需要找到分卷压缩的文件，单击第一个压缩文件。

在恩阳等地区，都构建了全面的区域性战略布局，加强发展的系统性、市场前瞻性、产品创新能力，以专注、极致的服务理念，为客户提供成都网站设计、网站建设网站设计制作按需网站策划,公司网站建设,企业网站建设,高端网站设计,营销型网站建设,成都外贸网站制作,恩阳网站建设费用合理。

2、按住"CTRL"键不放，依次点击第二个、第三个压缩文件。直到全部选择。

3、右击其中的一个压缩文件。在弹出的菜单中找到“解压到当前文件夹（X）”，单击。

4、可以看到解压完成。就可以批量解压文件并分别解压到单独的文件夹中了。

1、你先搞懂 winrar.exe 的解压参数格式，然后把winrar.exe和相关文件加入到资源文件中，然后调用资源文件中的winrar.exe

2、弄明白rar/zip文件解压/压缩方法和格式，自己写程序 (可能会比较麻烦)

如果机器安装有winRar软件，就可以通过shell来借用他的功能达到压缩文件的效果；

参考代码如下：

Dim DeliveryF As String = Server.MapPath("..\Temp\DeliveryFactors.xls") '原始文件 (压缩前)

Dim TruckInfo As String = Server.MapPath("..\Temp\TruckInformation.xls")

Dim QDetail As String = Server.MapPath("..\Temp\QuotationDetail.xls")

'用shell命令调用winrar.exe创建压缩文件()

Dim winRarexe As String = "C:\Program Files\WinRAR\Rar" 'winzip 执行文件的位置

Dim wtarget As String = "C:\temp\QuotationVAComparsion.zip" '目地文件 (压缩后)

Dim command As String = winRarexe " a " wtarget " " DeliveryF " " TruckInfo " " QDetail

'这个命令你可以查看winrar的命令集

Dim retval As Double 'Shell 指令传回值

retval = Shell(command, AppWinStyle.MinimizedFocus)

网站名称：vb.net批量解压文件 vba调用7z解压缩
本文来源：http://pwwzsj.com/article/dddpjsh.html