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 所指定的，在程序代码中的任何位置，可以使用这些常数来替换真正的数值。
❷ VB 指定压缩文件名的文件夹压缩
用法: rar <命令> -<开关 1> -<开关 N> <压缩文件> <文件...>
<@列表文件...> <解压路径\>
<命令>
a 添加文件到压缩文件
c 添加压缩文件注释
cf 添加文件注释
ch 改变压缩文件参数
cw 写入压缩文件注释到文件
d 删除压缩文件中的文件
e 解压压缩文件到当前目录
f 刷新压缩文件中的文件
i[参数]=<串> 在压缩文件中查找字符串
k 锁定压缩文件
l[t,b] 列出压缩文件[技术信息,简洁]
m[f] 移动到压缩文件[仅对文件]
p 打印文件到标准输出设备
r 修复压缩文件
rc 重建丢失的卷
rn 重命名压缩文件
rr[N] 添加数据恢复记录
rv[N] 创建恢复卷
s[名字|-] 转换压缩文件为自解压格式或转换回压缩文件
t 测试压缩文件
u 更新压缩文件中的文件
v[t,b] 详细列出压缩文件[技术信息,简洁]
x 用绝对路径解压文件
<开关>
- 停止扫描
ac 压缩或解压后清除存档属性
ad 添加压缩文件名到目标路径
ag[格式] 使用当前日期生成压缩文件名
ao 添加具有压缩属性的文件
ap<格式> 添加路径到压缩文件中
as 同步压缩文件内容
av 添加用户身份校验(仅注册版本可用)
av- 禁用用户身份校验
c- 禁用注释显示
cfg- 禁用读取配置
cl 名称转换为小写
cu 名称转换为大写
df 压缩后删除文件
dh 打开共享文件
dr 删除文件到回收站
ds 对固实压缩文件禁用名称排序
dw 压缩后清除文件
e[+]<属性> 设置文件排除和包括属性
ed 不添加空目录
en 不添加"压缩文件结束"标志
ep 从名称中排除路径
ep1 从名称中排除基本目录
ep2 展开为完整路径
ep3 扩展路径为包含盘符的完全路径
f 刷新文件
hp[密码] 同时加密文件数据和文件头
id[c,d,p,q] 禁用消息
ieml[属性] 用 E-mail 发送压缩文件
ierr 发送所有消息到标准错误设备
ilog[名称] 把错误写到日志文件(只有注册版本可用)
inul 禁用所有消息
ioff 完成一个操作后关闭 PC 电源
isnd 启用声音
k 锁定压缩文件
kb 保留损坏的已解压文件
m<0..5> 设置压缩级别(0-存储...3-默认...5-最大)
mc<参数> 设置高级压缩参数
md<大小> 以KB为单位的字典大小(64,128,256,512,1024,2048,4096 or A-G)
ms[ext;ext] 指定存储的文件类型
mt<线程> 设置线程数
n<文件> 仅包含指定的文件
n@ 从标准输入设备读取文件名到包括
n@<列表> 在指定的文件列表包括文件
o[+|-] 设置覆盖模式
oc 设置 NTFS 压缩属性
or 自动重命名文件
os 保存 NTFS 流
ow 保存或恢复文件所有者和组
p[密码] 设置密码
p- 不询问密码
r 递归子目录
r0 仅递归通配符名称的子目录
ri<P>[:<S>] 设置优先级(0-默认,1-最小..15-最大)和以毫秒为单位的休眠时间
rr[N] 添加数据恢复记录
rv[N] 创建恢复卷
s[<N>,v[-],e] 创建固实压缩文件
s- 禁用固实压缩文件
sc<chr>[obj] 指定字符集
sfx[名称] 创建自解压压缩文件
st[名称] 从标准输入设备读取数据(stdin)
sl<大小> 处理小于指定大小的文件
sm<大小> 处理超过指定大小的文件
t 压缩后测试文件
ta<日期> 添加日期 <日期> 后修改的文件,日期格式 YYYYMMDDHHMMSS
tb<日期> 添加日期 <日期> 前修改的文件,日期格式 YYYYMMDDHHMMSS
tk 保留原始压缩文件时间
tl 设置压缩文件时间为最新文件时间
tn<时间> 添加 <时间> 以后的文件
to<时间> 添加 <时间> 以前的文件
ts<m,c,a>[N] 保存或恢复文件时间(修改,创建,访问)
u 更新文件
v 自动检测创建卷的大小或者列出所有的卷
v<大小>[k,b] 创建卷大小=<大小>*1000 [*1024, *1]
vd 创建容量前清除磁盘内容
ver[n] 文件版本控制
vn 使用旧风格的卷命名方案
vp 每卷之前暂停
w<路径> 指定工作目录
x<文件> 排除指定的文件
x@ 从标准输入设备读取要排除的文件名
x@<列表> 排除指定列表文件中的文件
y 假设对全部询问都回答是
z[文件] 从文件读取压缩文件注释
❸ vb自身压缩文件夹或使文件夹变成文件
以二进制的方式一个个的打开,写入一个新的文件,依次写入文件尾端,最后写入依次写入文件的位置(文件的长度)
还可以用UNRAR.exe命令方式压缩和解压
将unrar.exe加入资源文件,先释放unrar.exe到临时目录,再用命令解压目标文件
❹ vb怎么压缩/解压数据
winrar有预定义的指令的，比如下面的vb代码把文件压缩： mystr = "C:\Program Files\WinRAR\WinRAR.exe"
Source = "d:\1.txt" '源文件的位置
Target = "d:\" '存放压缩文件的位置
mystr = mystr & " a " & Target & " " & Source
'调用RAR文件压缩
retval = Shell(mystr, vbHide)
MsgBox "文件压缩成功完成!", 64, "提示信息"解压文件也类似，可以去找下winrar的一些说明，它自己有命令行的，调用就行，解压好像是-inul，不太记得了。上面的代码可以进行压缩。
❺ vb如何调用winrar压缩整个文件夹中的内容，包括里面的子文件夹
Private Sub Command1_Click()
Shell "C:\Program Files\WinRAR\WinRAR.exe a -r e:\test.rar e:\test"
End Sub
❻ 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
怎么样，十分简单吧？