非递归算法遍历目录
.版本 2
.支持库 shell
.支持库 EDataStructure
.支持库 iext
.程序集 窗口程序集1
.子程序 _按钮_浏览_被单击
编辑框_目录.内容 = 浏览文件夹 (“选择目录:”, 假)
.子程序 枚举文件
.参数 目录, 文本型
.局部变量 队列, 队列
.局部变量 节点, 节点
.局部变量 节点1, 节点
.局部变量 路径, 文本型
.局部变量 文件夹名称, 文本型
.局部变量 文件名, 文本型
.局部变量 文件数目, 整数型
节点.加入属性 (“path”, 目录)
' 把初始目录加到队列
队列.压入 (节点)
.判断循环首 (队列.是否为空 () = 假)
' 弹出队列最前一个元素作为目录,对该目录进行文件夹枚举和文件枚举
队列.弹出 (节点1)
节点1.取文本值 (“path”, 路径)
路径 = 选择 (取文本右边 (路径, 1) ≠ “\”, 路径 + “\”, 路径)
文件夹名称 = 寻找文件 (路径 + “*.*”, #子目录)
.判断循环首 (文件夹名称 ≠ “”)
.如果真 (文件夹名称 ≠ “.” 且 文件夹名称 ≠ “..”)
' 如果在当前目录下找到了文件夹,则把该文件夹压入到队列,等待扫描该文件夹的下一级目录和文件名
节点.修改属性 (“path”, 路径 + 文件夹名称)
队列.压入 (节点)
.如果真结束
文件夹名称 = 寻找文件 (, #子目录)
.判断循环尾 ()
处理事件 ()
' 寻找当前目录的所有文件
文件名 = 寻找文件 (路径 + “*.*”, )
.判断循环首 (文件名 ≠ “”)
超级列表框1.插入表项 (, 路径 + 文件名, , , , )
文件数目 = 文件数目 + 1
标签3.标题 = 到文本 (文件数目)
文件名 = 寻找文件 (, )
.判断循环尾 ()
.判断循环尾 ()
.子程序 _按钮_枚举_被单击
超级列表框1.全部删除 ()
枚举文件 (编辑框_目录.内容)
信息框 (“完毕!”, 0, )
运行结果:
总结
以上就是这篇文章的全部内容了,希望本文的内容对大家的学习或者工作具有一定的参考学习价值,谢谢大家对亿速云的支持。如果你想了解更多相关内容请查看下面相关链接
亿速云「云服务器」,即开即用、新一代英特尔至强铂金CPU、三副本存储NVMe SSD云盘,价格低至29元/月。点击查看>>
免责声明:本站发布的内容(图片、视频和文字)以原创、转载和分享为主,文章观点不代表本网站立场,如果涉及侵权请联系站长邮箱:is@yisu.com进行举报,并提供相关证据,一经查实,将立刻删除涉嫌侵权内容。