易语言递归枚举文件及目录
<p>易语言递归枚举文件及目录</p><p>演示如何使用易语言采用递归方式枚举目录和文件，并创建文件索引，将其保存至一个文本数组。<br>-----代码开始-----<br>.子程序 创建文件索引, 整数型, 公开, 创建文件和目录搜索索引，成功返回 true(真);失败返回 false(假)<br>.参数 目录, 文本型, , 要创建索引的起始目录<br>.参数 结果列表, 文本型, 可空 数组, 保存索引结果的文本数组变量<br>.局部变量 临时文件名, 文本型<br>.如果真 (是否为空 (结果列表))<br>清除数组 (结果列表)<br>.如果真结束<br>目录 ＝ 选择 (取文本右边 (目录, 1) ＝ “\”, 目录, 目录 ＋ “\”)<br>临时文件名 ＝ 寻找文件 (目录 ＋ “*”, 16)<br>.判断循环首 (临时文件名 ≠ “”)<br>.如果真 (临时文件名 ≠ “.” 且 临时文件名 ≠ “..”)<br>加入成员 (临时文件结果列表, 目录 ＋ 临时文件名 ＋ “\”)<br>创建文件索引 (目录 ＋ 临时文件名 ＋ “\”)<br>.如果真结束<br>临时文件名 ＝ 寻找文件 (, 16)<br>.判断循环尾 ()<br>临时文件名 ＝ 寻找文件 (目录 ＋ “*”, )<br>.判断循环首 (临时文件名 ≠ “”)<br>.如果真 (临时文件名 ≠ “.” 且 临时文件名 ≠ “..”)<br>加入成员 (临时文件结果列表, 目录 ＋ 临时文件名)<br>.如果真结束<br>临时文件名 ＝ 寻找文件 (, )<br>.判断循环尾 ()<br>.如果真 (是否为空 (结果列表) ＝ 假)<br>结果列表 ＝ 临时文件结果列表<br>.如果真结束<br>返回 (取数组成员数 (结果列表))<br>-----代码结束----- </p>
</div>
<div id="MySignature" role="contentinfo">
<p>知乎: @张赐荣<br>赐荣博客: www.prc.cx</p><br><br>
来源：https://www.cnblogs.com/netlog/p/16089493.html
頁:
[1]