|
|
楼主 |
发表于 2010-5-20 12:28:36
|
显示全部楼层
来自： 中国浙江杭州
本帖最后由 157787698 于 2010-5-20 12:30 编辑
2 a# [& a/ I2 ^1 u4 s2 r+ d% u) ?$ T" g8 h% U
感谢斑竹回复，下面我用DIR实现了要求的功能：2 a: n: S! Q0 ^- I* M0 l5 s
" @9 }" W& L- l9 w1 n" B1 ?) v
Dim Files() As String '文件路径" i; i( V1 U0 x% \/ I* g
Dim Folder() As String '文件夹路径0 v' T& R5 j* y' Z. R
Dim a, b, c As Long( K& W5 \' m3 x% u# _4 o2 Q/ x2 C
Dim sPath As String2 P# P w% i1 [1 L
# m3 _# O- `5 JsPath = Dir(filePath & FileType) '查找第一个文件
q) @( @" U) }+ Y; d1 }9 t1 C/ `/ C. g8 C& h
Do While Len(sPath) '循环到没有文件为止
T* _- }' ]( ?* J8 E9 u a = a + 15 V9 L: V- G0 B2 r( z8 P# F6 d
ReDim Preserve Files(1 To a). R* N. ^4 ~/ _ N$ g
Files(a) = filePath & sPath '将文件目录和文件名组合,并存放到数组中
6 \: |5 [. L# T& S* V. [ ListBox1.AddItem Files(a) '加入list控件中
: t- l; H% m3 ` sPath = Dir '查找下一个文件
0 \0 p, z! l& E2 u DoEvents '让出控制权
: x( O& ^0 `7 U- d+ }Loop
9 f' {! X6 b. N0 w& x1 Y9 x( V4 |# f% G% k
sPath = Dir(filePath, vbDirectory) '查找第一个文件夹0 N, }5 q( M: B8 R/ W* h
$ _+ j* U& ~% Q; S5 J6 X. UDo While Len(sPath) '循环到没有文件夹为止
, K1 E& U& J. i If Left(sPath, 1) <> "." Then '为了防止重复查找
1 R& C# w% L2 l7 F8 y( s | If GetAttr(filePath & sPath) And vbDirectory Then '如果是文件夹则。。。。。。2 c8 D: D0 Y. _/ c: o
b = b + 1
9 S; t" o. N2 ~( \8 F8 c ReDim Preserve Folder(1 To b)! P- k; N7 |& t B) W8 C
Folder(b) = filePath & sPath & "\" '将目录和文件夹名称组合形成新的目录,并存放到数组中: }, X$ A$ _- d1 q
End If
3 q! v# k7 i: U! ]$ A; d6 c End If
/ h. e( Z2 ^( |% S& {sPath = Dir '查找下一个文件夹 S3 u) ~5 g! a- u( c! I
DoEvents '让出控制权' I, V3 P+ n: B% }* i% Z/ j
Loop) f+ K7 [3 ^) o% u9 u
% n( E. o( L) @. w; XFor c = 1 To b '使用递归方法，遍历所有目录
: w! ~: R" X: C6 j; R( H; ] SearchFiles Folder(c), FileType) B) @. A! R% Q: _5 A" s
Next |
|
发表于 2010-5-20 09:21:20
发表于 2010-5-20 11:17:16