树结构的一个文件夹中为文件夹由文件夹的名字、()组成。

---

---

---

文件树，目前有一个文件夹，文件夹内有子文件夹及子子文件夹和文件。文件夹名称及文件做成树放在EXCEL,vba。
如下代码可以生成文件树。但是有个问题是某些文件夹生成树时正常；而某些文件夹生成树时会提示文件未找到“运行时错误53”；有的文件夹生成树时提示“类型不匹配”；不知道是哪里出了问题？请高手们看看。另外下面的代码中生成文件树时每一层都会少一个文件，请一并看下

Sub 文件树()
Dim MyName, Dic, i, t, m, TT, MyFileName, dKeys
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.BrowseForFolder(0, "选择文件夹", 0, 0)

If Not objFolder Is Nothing Then lj = objFolder.self.Path & "\"
Set objFolder = Nothing
Set objShell = Nothing

t = Time

Set Dic = CreateObject("Scripting.Dictionary")
Dic.Add (lj), ""
i = 0
Do While i < Dic.Count
ke = Dic.keys
MyName = Dir(ke(i), vbDirectory)
Do While MyName <> ""
If MyName <> "." And MyName <> ".." Then
If (GetAttr(ke(i) & MyName) And vbDirectory) = vbDirectory Then
Dic.Add (ke(i) & MyName & "\"), ""
End If
End If
MyName = Dir
Loop
i = i + 1
Loop

Sheet1.Cells.Clear
Sheet1.[A1].Resize(Dic.Count, 1) = WorksheetFunction.Transpose(Dic.keys)
Sheet1.[A1].Sort Key1:=Sheet1.Columns("A")

dKeys = Sheet1.[A1].Resize(Dic.Count, 1).Value

Sheet1.Cells.Clear

Set Dic = Nothing
i = 1
For Each ke In dKeys
n = UBound(Split(ke, "\"))
Sheet1.Cells(i, n) = ke
m = 1
MyFileName = Dir(ke & "*.*")
Do While MyFileName <> ""
MyFileName = Dir
Sheet1.Cells(i, n).Offset(m, 1) = MyFileName
m = m + 1
Loop
i = i + m
Next
TT = Time - t
MsgBox Minute(TT) & "分" & Second(TT) & "秒"
End Sub

以上为百科题库网整理的关于"树结构的一个文件夹中为文件夹由文件夹的名字、()组成。"试题答案及解析，如想学习更多信息技术/IT类竞赛题，欢迎访问www.baiketk.com查看搜索更多相关信息。

转载请注明：百科题库网https://www.baiketk.com/q_s5f041027e3c43.html