易語言遞歸枚舉文件及目錄
演示如何使用易語言采用遞歸方式枚舉目錄和文件，並創建文件索引，將其保存至一個文本數組。
-----代碼開始-----
.子程序 創建文件索引, 整數型, 公開, 創建文件和目錄搜索索引，成功返回 true(真);失敗返回 false(假)
.參數 目錄, 文本型, , 要創建索引的起始目錄
.參數 結果列表, 文本型, 可空 數組, 保存索引結果的文本數組變量
.局部變量 臨時文件名, 文本型
.如果真 (是否為空 (結果列表))
清除數組 (結果列表)
.如果真結束
目錄 ＝ 選擇 (取文本右邊 (目錄, 1) ＝ “\”, 目錄, 目錄 ＋ “\”)
臨時文件名 ＝ 尋找文件 (目錄 ＋ “*”, 16)
.判斷循環首 (臨時文件名 ≠ “”)
.如果真 (臨時文件名 ≠ “.” 且 臨時文件名 ≠ “..”)
加入成員 (臨時文件結果列表, 目錄 ＋ 臨時文件名 ＋ “\”)
創建文件索引 (目錄 ＋ 臨時文件名 ＋ “\”)
.如果真結束
臨時文件名 ＝ 尋找文件 (, 16)
.判斷循環尾 ()
臨時文件名 ＝ 尋找文件 (目錄 ＋ “*”, )
.判斷循環首 (臨時文件名 ≠ “”)
.如果真 (臨時文件名 ≠ “.” 且 臨時文件名 ≠ “..”)
加入成員 (臨時文件結果列表, 目錄 ＋ 臨時文件名)
.如果真結束
臨時文件名 ＝ 尋找文件 (, )
.判斷循環尾 ()
.如果真 (是否為空 (結果列表) ＝ 假)
結果列表 ＝ 臨時文件結果列表
.如果真結束
返回 (取數組成員數 (結果列表))
-----代碼結束-----