易语言非递归算法遍历目录的代码示例

.版本 2
.支持库 shell
.支持库 EDataStructure
.支持库 iext
.程序集 窗口程序集1
.子程序 _按钮_浏览_被单击
编辑框_目录.内容 ＝ 浏览文件夹 (“选择目录：”, 假)
.子程序 枚举文件
.参数 目录, 文本型
.局部变量 队列, 队列
.局部变量 节点, 节点
.局部变量 节点1, 节点
.局部变量 路径, 文本型
.局部变量 文件夹名称, 文本型
.局部变量 文件名, 文本型
.局部变量 文件数目, 整数型
节点.加入属性 (“path”, 目录)
' 把初始目录加到队列
队列.压入 (节点)
.判断循环首 (队列.是否为空 () ＝ 假)
  ' 弹出队列最前一个元素作为目录,对该目录进行文件夹枚举和文件枚举
  队列.弹出 (节点1)
  节点1.取文本值 (“path”, 路径)
  路径 ＝ 选择 (取文本右边 (路径, 1) ≠ “\”, 路径 ＋ “\”, 路径)
  文件夹名称 ＝ 寻找文件 (路径 ＋ “*.*”, #子目录)
  .判断循环首 (文件夹名称 ≠ “”)
    .如果真 (文件夹名称 ≠ “.” 且 文件夹名称 ≠ “..”)
      ' 如果在当前目录下找到了文件夹,则把该文件夹压入到队列,等待扫描该文件夹的下一级目录和文件名
      节点.修改属性 (“path”, 路径 ＋ 文件夹名称)
      队列.压入 (节点)
    .如果真结束
    文件夹名称 ＝ 寻找文件 (, #子目录)
  .判断循环尾 ()
  处理事件 ()
  ' 寻找当前目录的所有文件
  文件名 ＝ 寻找文件 (路径 ＋ “*.*”, )
  .判断循环首 (文件名 ≠ “”)
    超级列表框1.插入表项 (, 路径 ＋ 文件名, , , , )
    文件数目 ＝ 文件数目 ＋ 1
    标签3.标题 ＝ 到文本 (文件数目)
    文件名 ＝ 寻找文件 (, )
  .判断循环尾 ()
.判断循环尾 ()
.子程序 _按钮_枚举_被单击
超级列表框1.全部删除 ()
枚举文件 (编辑框_目录.内容)
信息框 (“完毕！”, 0, )