简单易懂的文件遍历到树形框

.如果真 (树型框1.项目 ＝ { })
nara.路径 ＝ 要遍历的文件路径
nara.索引 ＝ 树型框1.加入项目 (-1, 要遍历的文件路径, , , , , )
加入成员 (aa, nara)
.如果真结束
.如果真 (取文本右边 (要遍历的文件路径, 1) ≠ “\”)
要遍历的文件路径 ＝ 要遍历的文件路径 ＋ “\”
.如果真结束
文件名 ＝ 寻找文件 (要遍历的文件路径 ＋ “*.*”, )

sy ＝ 寻找索引 (要遍历的文件路径)
nara.路径 ＝ 要遍历的文件路径 ＋ 文件名
nara.索引 ＝ 树型框1.加入项目 (sy, 文件名, , , , , )
加入成员 (aa, nara)
.判断结束
.判断循环首 (文件名 ≠ “”)
文件名 ＝ 寻找文件 (, #子目录)
.如果真 (文件名 ＝ “” 或 文件名 ＝ “.” 或 文件名 ＝ “..”)
到循环尾 ()
.如果真结束
sy ＝ 寻找索引 (要遍历的文件路径)
nara.路径 ＝ 要遍历的文件路径 ＋ 文件名
nara.索引 ＝ 树型框1.加入项目 (sy, 文件名, , , , , )
加入成员 (aa, nara)
文件遍历加入树形框 (要遍历的文件路径 ＋ 文件名)
.判断循环尾 ()