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怎么压缩解压文件
安装 WinRAR
Private Sub Command1_Click()
'压缩文件c:\01.txt
Shell "C:\Program Files\WinRAR\WinRAR.exe a c:\02.rar c:\01.txt"
End Sub
Private 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)