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