vb.net7z的简单介绍

vb.net进行文件压缩

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

成都创新互联公司是专业的墨竹工卡网站建设公司，墨竹工卡接单;提供网站建设、网站设计,网页设计,网站设计,建网站,PHP网站建设等专业做网站服务;采用PHP框架,可快速的进行墨竹工卡网站开发网页制作和功能扩展;专业做搜索引擎喜爱的网站,专业的做网站团队,希望更多企业前来合作!

参考代码如下：

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)

如果是固定格式的，

str=34X+45Y=67Z

x=split(str,"X")(0) ‘以X分割，取第0段，即：34

y=split(split(str,'+')(1),'Y')(0) '以+分割，取第1段即：45Y=67Z，再以Y分割，取0段得45

z=split(split(str,'=')(1),'Y')(0) '同上

把字符串分割，查找，截取这些常用字符串处理函数掌握了，

就差不多能随心所欲的处理了...

以上是vb6.0代码,

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

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

每个参数的默认传入机制均为ByVal，这意味着过程无法更改基础变量元素。

如果不指定parametertype，则默认为Object。

分享名称：vb.net7z的简单介绍
地址分享：http://cdiso.cn/article/doispog.html