易語言遞迴列舉檔案及目錄

演示如何使用易語言採用遞迴方式列舉目錄和檔案，並建立檔案索引，將其儲存至一個文字陣列。
-----程式碼開始-----
.子程式 建立檔案索引, 整數型, 公開, 建立檔案和目錄搜尋索引，成功返回 true(真);失敗返回 false(假)
.引數 目錄, 文字型, , 要建立索引的起始目錄
.引數 結果列表, 文字型, 可空 陣列, 儲存索引結果的文字陣列變數
.區域性變數 臨時檔名, 文字型
.如果真 (是否為空 (結果列表))
清除陣列 (結果列表)
.如果真結束
目錄 ＝ 選擇 (取文字右邊 (目錄, 1) ＝ “\”, 目錄, 目錄 ＋ “\”)
臨時檔名 ＝ 尋找檔案 (目錄 ＋ “*”, 16)
.判斷迴圈首 (臨時檔名 ≠ “”)
.如果真 (臨時檔名 ≠ “.” 且 臨時檔名 ≠ “..”)
加入成員 (臨時檔案結果列表, 目錄 ＋ 臨時檔名 ＋ “\”)
建立檔案索引 (目錄 ＋ 臨時檔名 ＋ “\”)
.如果真結束
臨時檔名 ＝ 尋找檔案 (, 16)
.判斷迴圈尾 ()
臨時檔名 ＝ 尋找檔案 (目錄 ＋ “*”, )
.判斷迴圈首 (臨時檔名 ≠ “”)
.如果真 (臨時檔名 ≠ “.” 且 臨時檔名 ≠ “..”)
加入成員 (臨時檔案結果列表, 目錄 ＋ 臨時檔名)
.如果真結束
臨時檔名 ＝ 尋找檔案 (, )
.判斷迴圈尾 ()
.如果真 (是否為空 (結果列表) ＝ 假)
結果列表 ＝ 臨時檔案結果列表
.如果真結束
返回 (取陣列成員數 (結果列表))
-----程式碼結束-----