1. 如何用VB代码压缩一个文件夹中的所有文件成一个压缩包
DIR 可以还可以用FSO 对象,来完成!Dir 函数返回一个 String，用以表示一个文件名、目录名或文件夹名称，它必须与指定的模式或文件属性、或磁盘卷标相匹配。语法Dir[(pathname[, attributes])]Dir 函数的语法具有以下几个部分：部分 描述 pathname 可选参数。用来指定文件名的字符串表达式，可能包含目录或文件夹、以及驱动器。如果没有找到 pathname，则会返回零长度字符串 ("")。 attributes 可选参数。常数或数值表达式，其总和用来指定文件属性。如果省略，则会返回匹配 pathname 但不包含属性的文件。 设置值attributes 参数的设置可为：常数 值 描述 vbNormal 0 (缺省) 指定没有属性的文件。 vbReadOnly 1 指定无属性的只读文件 vbHidden 2 指定无属性的隐藏文件 VbSystem 4 指定无属性的系统文件 vbVolume 8 指定卷标文件；如果指定了其它属性，则忽略vbVolume vbDirectory 16 指定无属性文件及其路径和文件夹。 注意 这些常数是由 VBA 所指定的，在程序代码中的任何位置，可以使用这些常数来替换真正的数值。
2. VB如何使用7z的API来实现压缩、解压缩
直接用命令行的方式来调用吧！可以用shell函数加上指定的参数压缩文件回："C:\Program Files\7-Zip\7z.exe" a c:\压缩后的7z文件名答.7z c:\需要压缩的wen1.txt c:\需要压缩的文件2.txt … 需要压缩的其他文件路径解压缩文件：首先用chdir函数设置当前目录为解压缩以后的文件存放的目录，然后用shell函数调用"C:\Program Files\7-Zip\7z.exe" e 需要解压缩的7z文件路径进行解压缩！
3. 如何用VB编写压缩与解压缩的程序
自己编写一个好的压缩与解压缩程序，算法是相当复杂的，如果只是想把多个文件打个包并不难，把多个文件写入一个二进制文件即可，当然这里面也要有文件名如何保存，每个文件到哪结束等的问题。最简单的方法是调用第三方软比如zip等，建议调用ARJ.EXE或LHARC.EXE因为它们只一个文件并且体积都很小压缩比也不错。
4. vb怎么压缩解压文件
安装 WinRARPrivate Sub Command1_Click() '压缩文件c:\01.txt Shell "C:\Program Files\WinRAR\WinRAR.exe a c:\02.rar c:\01.txt"End SubPrivate Sub Command2_Click() '解压文件到d：\ Shell "C:\Program Files\WinRAR\WinRAR.exe e c:\02.rar d:\"End Sub
5. VB 怎么操纵 War压缩
RAR软件附带有一个TXT文件（右击RAR快捷方式，属性，查找目标），里面是关于Rar.exe文件的命令行模式的参数说明，可以用VB的Shell函数，通过命令行来完成你的要求。
6. vb 怎么压缩,解压文件,就是rar或者zip,给我源码,还有调用哪个dll
winrar是最好的~而且代码简单~你可以把它的解压（unRar.exe）和压缩（Rar.exe）2个文件 放到资源里 大小也不过700kb而已，如果用户没有文件 你就释放这2个文件到temp或者程序同目录下。然后再解压你想要的rar,zip等 毕竟winrar支持的格式比较多。又稳定
7. 用VB怎样压缩一个文件
Option Explicit Dim mystr As String Dim Source As String ' 源文件 Dim Target As String ' 目标文件 Dim retval Private Sub Command1_Click() ，=========压缩文件mystr = "C:\Program Files\WinRAR\winrar.exe" 'winrar.exe文件路径 Source = App.Path & "\111.jpg" Target = App.Path & "\111.rar" '压缩格式可以是rar,也可以是cab…. mystr = mystr & " a " & Target & " " & Source '命令字符串 retval = Shell(mystr, vbHide) End Sub Private Sub Command2_Click() ‘===========解压文件mystr = "C:\Program Files\WinRAR\winrar.exe" Source = App.Path & "\111.rar" Target = App.Path & "\new" '存放压缩文件的位置 mystr = mystr & "X" & Source & " " & Target Text1.Text = mystr retval = Shell(mystr, vbHide) End Sub Private Sub Command3_Click() End End Sub
8. VB中 如何用winrar 压缩一个文件夹
如果是本地文件，可以这样：一些数据库文件(如Access文件)在远程传输过程中可能由于文件比较大而影响传递效果。如果进行压缩以后再传递，会减少传递时间，避免意外的发生，同时也保证了传递效果。我们在压缩文件时，最常用的压缩工具为WinRar和Winzip，笔者在VB编程过程中利用WinRar工具来压缩数据库文件，并完成远程传输，十分方便，在此向大家介绍一下。用WinZip的方法类似。 一、Shell函数 Shell函数是VB中的内部函数，它负责执行一个可执行文件，返回一个Variant(Double)，如果成功的话，代表这个程序的进程ID，若不成功，则会返回0。 Shell的语法：Shell(PathName[，WindowStyle])。 PathName 为必需参数。类型为String，它指出了要执行的程序名，以及任何需要的参数或命令行变量，也可以包括路径名。 WindowStyle为可选参数。Integer类型，指定在程序运行时窗口的样式。WindowStyle有以下这些值。 常量值描述 VbHide 0 窗口被隐藏，且焦点会移到隐式窗口。 VbNormalFocus 1 窗口具有焦点，且会还原到它原来的大小和位置。 VbMinimizedFocus 2 窗口会以一个具有焦点的图标来显示（缺省值）。 VbMaximizedFocus 3 窗口是一个具有焦点的最大化窗口。 VbNormalNoFocus 4 窗口会被还原到最近使用的大小和位置，而当前活动的窗口仍然保持活动。 VbMinimizedNoFocus 6 窗口会以一个图标来显示，而当前活动的窗口仍然保持活动。 二、关于WinRar的用法 主要介绍以下如何在WinRar中用命令行来压缩和解压缩文件。 压缩：WINRAR A [-switches] [Files] [@File lists] 例如你想把try.mdb压缩到C盘下，可以WINRAR A C:\try.rar C:\try.mdb 解压缩：如果带目录解压缩 WINRAR X [-switches] [Files] [@File lists] [destionation folder\] 如果在当前目录解压缩，即解压缩时不写目录名 WINRAR E [-switches] [Files] [@File lists] [destionation folder\] 例如你想把try.rar解压缩到C盘下，可以WINRAR X C:\try.rar C:\try.mdb 三、一个例子 在VB中新建一个工程，在Form1中添加两个按钮Command1、Command2和Command3，把他们的Caption属性分别设为"压缩文件"、"解压缩文件"和"传递文件"。按Command1时把文件try.mdb压缩成try.rar。 Private Sub Command1_Click() Dim Rarexe As String 'WINRAR执行文件的位置 Dim Source As String ' 压缩前的原始文件 Dim Target As String ' 压缩后的目标文件 Dim FileString as String 'Shell指令中的字符串 Dim Result As Long Rarexe="C:\program files\winrar\winrar" Source="C:\try.mdb" Target="C:\try.rar" FileString = rarexe & " a " & Target & " " & Source Result = Shell(FileString, vbHide) End Sub 解压的过程类似，按Command2可以把try.rar解压生成 try.mdb。在执行了上面的压缩过程后，可以删除文件try.mdb，来解压缩重新生成try.mdb。 Private Sub Command2_Click() Dim Rarexe As String 'WINRAR执行文件的位置 Dim Source As String ' 解压缩前的原始文件 Dim Target As String ' 解压缩后的目标文件 Dim FileString as String 'Shell指令中的字符串 Dim Result As Long Rarexe="C:\program files\winrar\winrar" Source="C:\try.rar" Target="C:\try.mdb" FileString = rarexe & " X " & Source & " " & Target Result = Shell(FileString, vbHide) End Sub 文件从一台计算机传输到另一台计算机前，应知道另一台计算机的名字，然后用FileCopy语句就可以了。假设要把压缩后try.rar传递到计算机名为"other"的共享目录"want"下。 Private Sub Command3_Click() Dim SourceFile, DestinationFile SourceFile ="C:\try.rar " ' 指定源文件名。 DestinationFile = "\\other\want\try.rar" ' 指定目的文件名。 FileCopy SourceFile, DestinationFile ' 将源文件的内容复制到目的文件中。 End Sub 怎么样，十分简单吧？
9. 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)
10. 在vb里怎么实现压缩文件与解压文件的操作
利用winrar解压文件：Call Shell( "C:\Program Files\WinRAR\rar.exe e -o+ E:\Ab.rar E:\ ", vbHide)压缩文件：Call Shell( "C:\Program Files\WinRAR\rar.exe a -o+ E:\aa.rar E:\Ab.txt ", vbHide)
未经允许不得转载：山九号 » vb怎么设置压缩文件|VB如何使用7z的API来实现压缩、解压缩
