说明（2017.3.26）：
1. 采用的是兰色幻想教学视频中的“父子转换法”
2. 这种VBA的遍历文件夹方法非常难理解，主要是因为dir这个函数，第一次带参数调用，返回的是此目录下的第一个文件，第二次无参数调用，返回的是此目录下一个第二个文件，这就很操蛋了，还要配合do循环。
3. VBA的各种do..until..loop, do..while..loop, if..then..end if, for 1 to 10..next尼玛这么多关键字要死啊！不骂不痛快!本来思考的就很累，还时不时蹦出个“for缺少next”！草拟吗的！
4. VBA的数组，已经吐槽过了，一句草你麻痹送上不谢。
5. python里的一个walk就能解决的问题，现在要这么一坨。要不是python的VBA文档跟屎一样，而且还要下载一个屎一样的插件，不说了。。
6. 这次的代码只实现了遍历所有文件，下一步还要对每个word文件进行操作，提取出里面的【点拨】
7. 总结：只看见别人用VBA的时候装逼，看不到别人写VBA的时候在吃屎。
Public Sub test1()
Dim path
Dim filename
Dim folders( To )
Dim i%, j%
i =
j =
' 先获取所有的文件夹
path = ThisWorkbook.path & "\oriFolder\"
folders() = path
' 这里的folders数组和下面的classes数组只设置了100个长度，是为了调试方便，不然有时会出现大量空行，实际中可以增大。
' dir第二次无参数调用，返回的是同一个文件夹下的第二个文件！！
' filename = Dir(folders(i), vbDirectory)这里filename获取的首先是folders(1)路径下的文件夹"."
' dir找到第一个文件夹"."，这时i=1，进入do循环，把oriFolder这一层的文件夹都dir出来(101和102)，
' 找到一个文件夹就把j加1(最后j=3)，把folders(i)修改为"."路径，101路径和102路径，里面的do until循环就做了这么个事
' do until做完之后，i要加1了，变成2，这时的filename = Dir(folders(i), vbDirectory)，folders(2)就是do until循环里已经修改的101路径了，
' 继续do until循环，j目前=3，然后开始增加，目的是让folders(j)数组继续往后增加元素，等把101路径里所有文件夹路径添加进去之后，
' i变成3，再开始遍历102文件夹
' 如果101里面还有文件夹，就等把101和102都遍历完后，因为i每次只加1，而j是只要有一个文件夹就加1，
' 所以只要i没有到j的数量，就会一直遍历下去，把所有的子文件遍历出来
Do While i <= j
filename = Dir(folders(i), vbDirectory) ' filename="."
Do Until filename = ""
If InStr(filename, ".") = Then
j = j +
' 当i=1的时候，folders(j)中的1,2,3分别是",",101,102目录
folders(j) = folders(i) & filename & "\"
End If
filename = Dir
Loop
i = i +
Loop
' For p = 1 To UBound(folders)
' If folders(p) <> "" Then
' Debug.Print (folders(p))
' End If
' Next
' 从每个文件夹里获取所有课，存入一个数组
Dim classes( To )
Dim class
Dim p
Dim q
p =
q = For p = To UBound(folders)
If folders(p) <> "" Then
class = Dir(folders(p) & "*.*")
Do Until class = ""
classes(q) = folders(p) & class
q = q +
class = Dir
Loop
End If
Next For x = To UBound(classes)
If classes(x) <> "" Then
Debug.Print (classes(x))
End If
Next End Sub