子程序 遍歷目錄, , , 輸出指定目錄下的所有文件，包括子目錄
.參數 參目錄, 文本型, , 不帶最后的“\”
.局部變量 文件名, 文本型
.局部變量 目錄數組, 文本型, , "0"
.局部變量 i, 整數型
.局部變量 文件類型, 整數型


.如果真 (信息框 (“即將遍歷指定目錄并刪除所有TXT文件!是否繼續?”, 1, ) ≠ 0)
  返回 ()
.如果真結束


文件類型 ＝ 位或 (#存檔文件, #只讀文件, #系統文件, #隱藏文件, #子目錄)
文件名 ＝ 尋找文件 (選擇 (取文本右邊 (參目錄, 1) ≠ “\”, 參目錄 ＋ “\”, 參目錄) ＋ “*.*”, 文件類型)
.如果真 (文件名 ＝ “”)
  返回 () ' 設定終止條件
.如果真結束


.循環判斷首 ()
  .如果 (位與 (取文件屬性 (參目錄 ＋ “\” ＋ 文件名), #子目錄) ≠ 0)
    ' 注意這里不能直接遍歷，要先存入數組，
    ' 否則就是開啟了一個新的尋找文件的過程，
    ' 導致無法列正確的文件
    加入成員 (目錄數組, 文件名) ' 把目錄先存入數組中
  .否則
    .如果真 (到小寫 (取文本右邊 (文件名, 4)) ＝ “.txt”)
      刪除文件 (參目錄 ＋ “\” ＋ 文件名)
    .如果真結束
    ' 輸出調試文本 (參目錄 ＋ “\” ＋ 文件名) ' 文件名則輸出
  .如果結束
  ' 尋找下一個
  文件名 ＝ 尋找文件 (, 文件類型)
.循環判斷尾 (文件名 ≠ “”)


.計次循環首 (取數組成員數 (目錄數組), i)
  .如果真 (目錄數組 [i] ≠ “.” 且 目錄數組 [i] ≠ “..”)
    ' 不是當前目錄和父目錄才進行掃描
    遍歷目錄 (參目錄 ＋ “\” ＋ 目錄數組 [i]) ' 遞歸調用子程序本身
  .如果真結束


.計次循環尾 ()