资讯

精准传达 • 有效沟通

从品牌网站建设到网络营销策划,从策略到执行的一站式服务

vb.net7zip的简单介绍

vb直接解压zip文件

调用shell、已安装的WinRar解压文件。Shell

让客户满意是我们工作的目标,不断超越客户的期望值来自于我们对这个行业的热爱。我们立志把好的技术通过有效、简单的方式提供给客户,将通过不懈努力成为客户在信息化领域值得信任、有价值的长期合作伙伴,公司提供的服务项目有:空间域名、网页空间、营销软件、网站建设、青浦网站维护、网站推广。

"C:\Program

Files\WinRar\Winrar.exe

"

"命令行参数"命令行语法

从命令行也可以运行

WinRAR

命令,常规的命令行语法描述如下:WinRAR

命令

-开关1

-开关N

压缩文件

文件...

@列表文件...

解压路径\命令要

WinRAR

运行的字符组合代表功能开关切换操作指定类型,压缩强度,压缩文件类型,等等的定义。

压缩文件要处理的压缩文件名。文件要处理的文件名。列表文件列表文件是包含要处理文件名称的纯文本。文件名应该在第一卷启动。可以在列表文件中使用

//字符后添加注释。例如,你可以包含两列字符串创建

backup.lst:

c:\work\doc\*.txt

//备份文本文档

c:\work\image\*.bmp

//备份图片c:\work\misc并接着运行:

winrar

a

backup

@backup.lst你可以在命令行中同时指定普通的文件名和列表文件名。

解压路径只与命令

e

x

,搭配使用。指出解压文件添加的位置。如果文件夹不存在时,会自动创建。

注意事项a)

如果未指定

文件

或是

列表文件

时,WinRAR

将会以缺省的

*.*

运行全部的文件;b)

如果未指定压缩文件扩展名时,WinRAR

将会使用在

压缩配置

中选定的默认压缩文件格式。但你可以指定

.RAR

.ZIP

扩展名来替换它们

;c)

在命令行所输入的开关会替换相同的配置设置值

;d)

在命令

c

、e、s、t、rr、k

x

可在压缩文件名中使用通配符。如此可以用单个的命令来进行超过一个以上的压缩文件,除此之外,如果你指定

-r

开关于这些命令时,它们将会搜索在子文件夹中的压缩文件

;e)

某些命令和开关只应用在

RAR

压缩文件,有些则在

RAR

ZIP

都可使用,而某些则可应用在全部的压缩文件格式。这一些都得看压缩文件格式所提供的特性而定

;f)

命令和开关的大小写是相同意思的,你可以用大写或者小写来下命令均可。

vb.net进行文件压缩

如果机器安装有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中怎么判断文件类型

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

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怎么安装

VB.NET安装部署一).创建部署项目

1. 在“文件”菜单上指向“添加项目”,然后选择“新建项目”。

2. 在“添加新项目”对话框中,选择“项目类型”窗格中的“安装和部署项目”,然后选择“模板”窗格中的“安装项目”。在“名称”框中键入 setup1。

3. 单击“确定”关闭对话框。

4. 项目被添加到解决方案资源管理器中,并且文件系统编辑器打开。

5. 在“属性”窗口中,选择 ProductName 属性,并键入 信息管理系统 。

VB.NET安装部署二).将 主程序 项目的输出添加到部署项目中

1. 在“文件系统编辑器”中,选择“应用程序文件夹”。在“操作”菜单上,指向“添加”,然后选择“项目输出”。

2. 在“添加项目输出组”对话框中,选择“项目”下拉列表中的“你的程序”。

3. 单击“确定”关闭对话框。

4. 从列表中选择“主输出”和“内容文件”组,然后单击“确定”。

VB.NET安装部署三).创建安装程序类

1. 在“文件”菜单上指向“新建”,然后选择“项目”。

2. 在“新建项目”对话框中,选择“项目类型”窗格中的“Visual Basic 项目”,然后选择“模板”窗格中的“类库”。在“名称”框中键入 installDB。

3. 单击“打开”关闭对话框。

4. 从“项目”菜单中选择“添加新项”。

5. 在“添加新项”对话框中选择“安装程序类”。在“名称”框中键入 installDB。

6. 单击“确定”关闭对话框。

7. 详细代码附后。

VB.NET安装部署四).创建自定义安装对话框

1. 在解决方案资源管理器中选择“setup1”项目。在“视图”菜单上指向“编辑器”,然后选择“用户界面”。

2. 在用户界面编辑器中,选择“安装”下的“启动”节点。在“操作”菜单上,选择“添加对话框”。

3. 在“添加对话框”对话框中,选择“许可协议”对话框,然后单击“确定”关闭对话框。

4. 在“添加对话框”对话框中,选择“文本框 (A)”对话框,然后单击“确定”关闭对话框。

5. 在“操作”菜单上,选择“上移”。重复此步骤,直到“文本框 (A)”对话框位于“安装文件夹”节点之上。

6. 在“属性”窗口中,选择 BannerText 属性并键入:安装数据库.

7. 选择 BodyText 属性并键入:安装程序将在目标机器上安装数据库

8. 选择 Edit1Label 属性并键入:数据库名称:

9. 选择 Edit1Property 属性并键入 CUSTOMTEXTA1

10. 选择 Edit1Value 属性并键入:dbservers

11. 选择 Edit2Label 属性并键入:服务器名:

12. 选择 Edit2Property 属性并键入 CUSTOMTEXTA2

13. 选择 Edit2Value 属性并键入:(local)

14. 选择 Edit3Label 属性并键入:用户名:

15. 选择 Edit3Value 属性并键入:sa

16. 选择 Edit3Property 属性并键入 CUSTOMTEXTA3

17. 选择 Edit4Label 属性并键入:密码:

18. 选择 Edit4Property 属性并键入 CUSTOMTEXTA4

19. 选择 Edit2Visible、Edit3Visible 和 Edit4Visible 属性,并将它们设置为 true

VB.NET安装部署五).创建自定义操作

1. 在解决方案资源管理器中选择“setup1”项目。在“视图”菜单上指向“编辑器”,然后选择“自定义操作”。

2. 在自定义操作编辑器中选择“安装”节点。在“操作”菜单上,选择“添加自定义操作”。

3. 在“选择项目中的项”对话框中,双击“应用程序文件夹”。

4. 选择“主输出来自 installDB(活动)”项,然后单击“确定”关闭对话框。

5. 在“属性”窗口中,选择 CustomActionData 属性并键入“/dbname=[CUSTOMTEXTA1] /server=[CUSTOMTEXTA2] /user=[CUSTOMTEXTA3] /pwd=[CUSTOMTEXTA4] /targetdir="[TARGETDIR]/"”。

附:/targetdir="[TARGETDIR]/"是安装后的目标路径,为了在installDB类中获得安装后的路径,我们设置此参数。

VB.NET安装部署六).添加文件

1. 将SQL Server备份成文件DB.dat添加到“setup1”项目(在企业管理器中右击数据库-所有工作-备份数据库,备份成一个文件,取名为DB.dat)

2. 将安装文件LisenceFile.rtf添加到“setup1”项目

3. 在用户界面编辑器中,选择许可协议,设置LisenceFile属性为LisenceFile.rtf文件

4.一般会自动将依赖项添加到“检测到的依赖项”,如果没有,那么我们要手动将其加入步骤5)

Crystal_Managed2003.msm

(如果有水晶报表)

dotnetfxredist_x86.msm

(.net一定是必须的)

... (如果有引用其他的dll)

5.如果使用了水晶报表,手动加入要包含的文件:项目--添加--合并模块(添加你的程序文件) (包括dotNetFramework和MDAC27),位于:C:/Program Files/Common Files/Merge Modules/ 下,*为必要的

具体功能如下:

(托管组件 MSM 处理所有托管组件的分发,其中包括 Windows 窗体查看器、Web 窗体查看器和所有 Crystal Decisions 命名空间)

* Crystal_Managed2003.msm

Crystal_Managed2003_chs.msm

(对于使报表运行所需的所有其他文件,由数据库访问 MSM 处理其分发。其中包括数据库、导出和图表驱动程序。)

* Crystal_Database_access2003.msm

Crystal_Database_access2003_chs.msm

(KeyCode MSM 处理 Crystal Decisions 密钥号码的安装,注意是添加合并模块,否则没有“MergeMouduleProperties”属性)

* Crystal_regwiz2003.msm

(如果报表文件使用了 ADO.NET 的 dataset 数据集对象,那么 VC_User_CRT71_RTL_X86_---.msm 和 VC_User_STL71_RTL_X86_---.msm 模块也必须包含在安装工程中。而且这两个模块的文件安装属性的"Module Retargetable Folder"项必须修改成为系统目录)

VC_User_CRT71_RTL_X86_---.msm VC_User_STL71_RTL_X86_---.msm

(很多人经常出现查询错误,不妨加上这个)

6.打开解决方案--右键点击Crystal_regwiz2003.msm的属性,在“MergeMouduleProperties”里的“License Key”填入:AAP5GKS0000GDE100DS(这个是你生成Crystal Report是用到的注册号的密码!)

VB.NET安装部署七).打包时加入卸载功能:

方法一:

1.在打包项目中添加文件msiexec.exe(一般可在c:/windows/system32/下找到)

2.在文件系统视图中选择应用程序文件夹,在msiexec.exe上按右键,选择创建快捷方式,重命名快捷方式为"卸载".

3.更改此快捷方式的Arguments 为"/x {产品id}",产品id的值为打包项目的ProductCode属性值.

方法二:(推荐)

1.先生成安装包,记下ProductCode(选择解决方案资源管理器根目录如setup1,再查看属性标签,不是右键中的属性),下面要用到

2.用VS.net建立一个新的控制台程序uninst.exe文件

'power by: landlordh

'for 2000,xp,2003

Module uninstall

Sub Main()

Dim myProcess As Process =

New Process

If System.Environment.OSVersion.

ToString.IndexOf("NT 5") Then

myProcess.Start("msiexec", "/X

{2B65D4A9-C146-4808-AB4B-321F

B0779559}") '改为自己的ProductCode

End If

myProcess.Close()

End Sub

End Module

3.将控制台程序BIN目录的exe文件加入到打包程序文件中,在程序组创建uninst.exe的快捷方式

VB.NET安装部署八).打包时加入.net环境和MDAC功能:

把MS的PluginInstaller.msi插件装上后,用vb.net的自带的打包工具打包,就会自动把.net framework环境打进去,再下面的步骤进行设置,就可以把MDAC也打包.使用 Setup 项目安装 MDAC

1.确保 Visual Studio .NET 框架引导程序插件已安装。

2.在 Solution Explorer 中选择 Setup 项目。从 View 菜单指向 Editor,并选择 Launch Conditions(启动条件)。

3.选择 Requirements on Target Machine(搜索目标计算机) 节点。从 Action 菜单,选择 Add Registry Launch Condition(添加注册表搜索)。

4.选择 Search for RegistryEntry1 节点。在 Properties 窗口中,选择 RegKey 属性,并键入 Software/Microsoft/DataAccess。

5.选择 Root 属性,并选择 vsdrrHKLM。

6.选择 Value 属性,并键入 FullInstallVer。

7.选择 Property 属性,并键入 MDACSEARCH。

8.在 Launch Conditions Editor(启动条件) 中,添加Condition1 节点。选择 Condition1 节点,在 Properties 窗口中,选择 Condition 属性,并选择 MDACSEARCH="2.6"。

9.在 Solution Explorer 中选择 Setup 项目。在 Project 菜单上,选择 Properties。

10.将 Bootstrapper 属性设置为 Windows Installer Bootstrapper(Windows 安装引导程序)。


当前标题:vb.net7zip的简单介绍
标题来源:http://cdkjz.cn/article/dopopep.html
多年建站经验

多一份参考,总有益处

联系快上网,免费获得专属《策划方案》及报价

咨询相关问题或预约面谈,可以通过以下方式与我们联系

业务热线:400-028-6601 / 大客户专线   成都:13518219792   座机:028-86922220