VBA入门到进阶常用知识代码总结49

第49集 文件夹遍历
225、 父子转换法遍历所有文件夹及子文件夹、子文件
Sub 父子转换法演示程序()
Dim 父亲(1 To 10000) '存放所有文件夹名称及其路径
Dim f, i, k, f2, f3, x
Dim arr1(1 To 100000, 1 To 1) '存放查找到的所有文件
Dim q As Integer
父亲(1) = ThisWorkbook.path & “” '初始化arr，先赋一个值
Cells(1, 1) = 父亲(1)
i = 1: k = 1 '初始化i和k的值
Do While i <= k '循环条件是i小于等于文件夹的个数
f = Dir(父亲(i), vbDirectory)
Range(“a” & i).Interior.ColorIndex = 6
Do
If InStr(f, “.”) = 0 And f <> “” Then
k = k + 1
父亲(k) = 父亲(i) & f & “”
Cells(k, 1) = 父亲(k)
End If
f = Dir
Loop Until f = “”
Range(“a” & i).Interior.ColorIndex = xlNone
i = i + 1
Loop
'**下面是提取各个文件夹的文件
For x = 1 To UBound(父亲)
If 父亲(x) = “” Then Exit For
f3 = Dir(父亲(x) & "