vb.netzip的简单介绍

vb.net进行文件压缩

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

创新互联公司主营山阴网站建设的网络公司,主营网站建设方案,APP应用开发,山阴h5成都小程序开发搭建,山阴网站营销推广欢迎山阴等地区企业咨询

参考代码如下：

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 如何获得一个文件类型的默认程序。

这个问题可以用注册表解决。

Function getOpenCommand(fileExt As String) as String

Dim fileType as String, openCommand as String

fileExt = "." + fileExt

'取得文件扩展名在注册表里的文件类型名称

'比如.zip的类型名称一般是zipfile

fileType = 读取注册表的classes_root下的子键(fileExt)的默认键值

'取得打开这种文件的程序

openCommand = 读取注册表的classes_root下的子键(fileType + "\shell\open\command")的默认键值

Return getOpenCommand

End Function

读取注册表的HKEY_CLASSES_ROOT下的子键的默认键值的方法可以在网上搜索到。

这样getOpenCommand("doc")就可以得到一个字符串(包括引号)：

"C:\Program Files\Word\word.exe" "%1"

这里只需要用Spilt函数把C:\Program Files\Word\word.exe分离出来就好了

vb.net中怎么判断文件类型

这个问题可以用注册表解决。

Function getOpenCommand(fileExt As String) as String

Dim fileType as String, openCommand as String

fileExt = "." + fileExt

'取得文件扩展名在注册表里的文件类型名称

'比如.zip的类型名称一般是zipfile

fileType = 读取注册表的classes_root下的子键(fileExt)的默认键值

'取得打开这种文件的程序

openCommand = 读取注册表的classes_root下的子键(fileType + "\shell\open\command")的默认键值

Return getOpenCommand

End Function

读取注册表的HKEY_CLASSES_ROOT下的子键的默认键值的方法可以在网上搜索到。

这样getOpenCommand("doc")就可以得到一个字符串(包括引号)：

"C:\Program Files\Word\word.exe" "%1"

这里只需要用Spilt函数把C:\Program Files\Word\word.exe分离出来就好了