易語言空文件夾

1. 易語言打開文件夾

執行(4,"你要打開的文件夾")
///希望對你有幫助

2. 易語言判斷文件夾是否存在

.版本 2
.子程序 取子文件夾數目, 整數型, , 返回所有子文件夾的數量
.參數 路徑, 文本型
.局部變數 子文件夾, 文本型, , "0"
.局部變數 計次, 整數型
.局部變數 臨時文本, 文本型
加入成員 (子文件夾, 路徑 ＋ 選擇 (取文本右邊 (路徑, 1) ＝ 「\」, 「」, 「\」))

.循環判斷首 ()
計次 ＝ 計次 ＋ 1
臨時文本 ＝ 尋找文件 (子文件夾 [計次] ＋ 「*.*」, #子目錄)
.判斷循環首 (臨時文本 ≠ 「」)
.如果真 (取文本左邊 (臨時文本, 1) ≠ 「.」)
加入成員 (子文件夾, 子文件夾 [計次] ＋ 臨時文本 ＋ 「\」)
.如果真結束
臨時文本 ＝ 尋找文件 (, #子目錄)
.判斷循環尾 ()
.循環判斷尾 (計次 ＜ 取數組成員數 (子文件夾))
返回 (取數組成員數 (子文件夾) － 1)
.子程序 取文件夾數目, 整數型, , 返回一級子文件夾數量
.參數 路徑, 文本型
.局部變數 計次, 整數型
.局部變數 臨時文本, 文本型
臨時文本 ＝ 尋找文件 (路徑 ＋ 選擇 (取文本右邊 (路徑, 1) ＝ 「\」, 「」, 「\」) ＋ 「*.*」, #子目錄)

.判斷循環首 (臨時文本 ≠ 「」)
.如果真 (取文本左邊 (臨時文本, 1) ≠ 「.」)
計次 ＝ 計次 ＋ 1
.如果真結束
臨時文本 ＝ 尋找文件 (, #子目錄)
.判斷循環尾 ()
返回 (計次)

3. 易語言列舉文件夾

.版本 2

.局部變數 子目錄, 文本型
.局部變數 根目錄, 文本型

根目錄 ＝ 「E:\」 ' 這里就是要搜索的目錄
子目錄 ＝ 尋找文件 (根目錄 ＋ 「\*」, #子目錄) ' *(通配符)表示所有目錄
.判斷循環首 (子目錄 ≠ 「」)'空為搜索完畢了
.如果真 (子目錄 ＝ 「.」 或 子目錄 ＝ 「..」) ' .和..需要排除
子目錄 ＝ 尋找文件 (, #子目錄) ' 參數1為空表示繼續搜索
到循環尾 ()
.如果真結束
列表框1.加入項目 (根目錄 ＋ 子目錄, ) ' 把子目錄加入列表
子目錄 ＝ 尋找文件 (, #子目錄) ' 注意,這種方法只支持一層目錄的搜索
.判斷循環尾 ()