|
给你个遍历文件的代码:
Sub 遍历子文件夹()
Dim d, thispath, thisname, n&, m&, x&, mydir, dk
Set d = CreateObject("scripting.dictionary")
thispath = ThisWorkbook.Path & "\"
thisname = ThisWorkbook.Name
d(thispath) = ""
Do While n < d.Count
dk = d.keys
mydir = Dir(dk(n), vbDirectory)
Do While mydir <> ""
If mydir <> "." And mydir <> ".." Then
If GetAttr(dk(n) & mydir) And vbDirectory Then
d(dk(n) & mydir & "\") = ""
m = m + 1
Cells(m, 1) = dk(n) & mydir & "\"
Else
x = x + 1
Cells(x, 7) = dk(n) & mydir
End If
End If
mydir = Dir
Loop
n = n + 1
Loop
End Sub
|
|