枚举目录所有文件到树形框

.子程序 树型框_取文件路径, 文本型, 公开, 成功返回文件路径，失败返回空
.参数 项目索引, 整数型
.局部变量 文件目录, 文本型

文件目录 ＝ 集_顶层路径 ＋ 内部调用_取目录路径 (项目索引)
.如果 (取文件属性 (文件目录) ＝ #子目录)
返回 (文件目录)
.否则
.如果真 (取文本右边 (文件目录, 1) ＝ “\”)
文件目录 ＝ 取文本左边 (文件目录, 取文本长度 (文件目录) － 1)
返回 (文件目录)