|
|
楼主 |
发表于 2010-5-20 12:28:36
|
显示全部楼层
来自： 中国浙江杭州
本帖最后由 157787698 于 2010-5-20 12:30 编辑
n0 o+ C; i C* @. f/ L" V$ ^+ u0 ?2 p+ V( C
感谢斑竹回复，下面我用DIR实现了要求的功能：
+ I0 e) q& [9 _' h$ g1 t. r
/ A( F) H9 T" X5 _% t/ b6 v& {8 G6 t* T) i% J
Dim Files() As String '文件路径- B7 }' S2 r1 J
Dim Folder() As String '文件夹路径
7 Y& S, T* p0 l, U3 o( cDim a, b, c As Long
9 W8 L2 m- t: ^5 O5 MDim sPath As String# W! Y1 x, X S
7 X. T/ ]: O G& R2 k
sPath = Dir(filePath & FileType) '查找第一个文件6 ]9 V, G% Y; C/ c4 u3 j
. G! E; T) z, R+ ~$ N: x+ iDo While Len(sPath) '循环到没有文件为止
1 }9 E) D8 L8 {6 ~! O8 w a = a + 1
" |8 Y! k1 Z0 I6 [3 k$ h( `) ? ReDim Preserve Files(1 To a)
: l4 E- b9 _; A* q Files(a) = filePath & sPath '将文件目录和文件名组合,并存放到数组中
) V: n `5 L) ?" U% b# p) h ListBox1.AddItem Files(a) '加入list控件中
1 ]) g. y: V6 T( @ sPath = Dir '查找下一个文件" q( G/ k9 V. ]+ d* p
DoEvents '让出控制权
) k, L: I- N1 h: _% T. `; |: oLoop
, J1 ?# V* U7 v/ p: E9 I4 I
1 M% g$ u: D8 I6 Z$ WsPath = Dir(filePath, vbDirectory) '查找第一个文件夹
/ J& }4 R! u0 e( O$ u( g7 S/ H( A' p
Do While Len(sPath) '循环到没有文件夹为止5 ]5 N" w3 O! r# A7 }
If Left(sPath, 1) <> "." Then '为了防止重复查找8 o& ~: h1 X" H
If GetAttr(filePath & sPath) And vbDirectory Then '如果是文件夹则。。。。。。5 h+ Y3 }- p! A; G) `
b = b + 1
- \2 g& Z& N! O ReDim Preserve Folder(1 To b). _6 b( Q' N+ k, A7 {( A# `$ ^
Folder(b) = filePath & sPath & "\" '将目录和文件夹名称组合形成新的目录,并存放到数组中
, r5 B0 |* M& o9 I End If N6 R" A3 D3 k1 `) r
End If% O. t2 B! v- J# i% k
sPath = Dir '查找下一个文件夹" i/ n; A4 f: |
DoEvents '让出控制权 i! b- C Y3 l$ z; g4 O9 W% G
Loop
; _ U3 N3 A! W. }# ?/ i5 ~( [ ]$ C, }6 \: s
For c = 1 To b '使用递归方法，遍历所有目录
& M1 z; p2 |$ {, M+ v/ `$ P SearchFiles Folder(c), FileType. S5 F& [* H, K* K$ w+ M+ \9 b
Next |
|
发表于 2010-5-20 09:21:20
发表于 2010-5-20 11:17:16