vb.net访问压缩,vb压缩文件

vb.net 如何压缩、解压缩文件

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)

直接读取一个gz压缩文件：

我直接创建了一个内容："asdfasdfasfd" 的 1.txt文件并用gzip 压缩。

读取：

$ zcat 1.txt.gz

asdfasdfasfd

如果内容过长可以接 less 查看：

$ zcat 1.txt.gz | less

网站栏目：vb.net访问压缩,vb压缩文件
网站链接：http://cdiso.cn/article/dsepcci.html