易语言空文件夹

1. 易语言打开文件夹

执行(4,"你要打开的文件夹")
///希望对你有帮助

2. 易语言判断文件夹是否存在

.版本 2
.子程序 取子文件夹数目, 整数型, , 返回所有子文件夹的数量
.参数 路径, 文本型
.局部变量 子文件夹, 文本型, , "0"
.局部变量 计次, 整数型
.局部变量 临时文本, 文本型
加入成员 (子文件夹, 路径 ＋ 选择 (取文本右边 (路径, 1) ＝ “\”, “”, “\”))

.循环判断首 ()
计次 ＝ 计次 ＋ 1
临时文本 ＝ 寻找文件 (子文件夹 [计次] ＋ “*.*”, #子目录)
.判断循环首 (临时文本 ≠ “”)
.如果真 (取文本左边 (临时文本, 1) ≠ “.”)
加入成员 (子文件夹, 子文件夹 [计次] ＋ 临时文本 ＋ “\”)
.如果真结束
临时文本 ＝ 寻找文件 (, #子目录)
.判断循环尾 ()
.循环判断尾 (计次 ＜ 取数组成员数 (子文件夹))
返回 (取数组成员数 (子文件夹) － 1)
.子程序 取文件夹数目, 整数型, , 返回一级子文件夹数量
.参数 路径, 文本型
.局部变量 计次, 整数型
.局部变量 临时文本, 文本型
临时文本 ＝ 寻找文件 (路径 ＋ 选择 (取文本右边 (路径, 1) ＝ “\”, “”, “\”) ＋ “*.*”, #子目录)

.判断循环首 (临时文本 ≠ “”)
.如果真 (取文本左边 (临时文本, 1) ≠ “.”)
计次 ＝ 计次 ＋ 1
.如果真结束
临时文本 ＝ 寻找文件 (, #子目录)
.判断循环尾 ()
返回 (计次)

3. 易语言列举文件夹

.版本 2

.局部变量 子目录, 文本型
.局部变量 根目录, 文本型

根目录 ＝ “E:\” ' 这里就是要搜索的目录
子目录 ＝ 寻找文件 (根目录 ＋ “\*”, #子目录) ' *(通配符)表示所有目录
.判断循环首 (子目录 ≠ “”)'空为搜索完毕了
.如果真 (子目录 ＝ “.” 或 子目录 ＝ “..”) ' .和..需要排除
子目录 ＝ 寻找文件 (, #子目录) ' 参数1为空表示继续搜索
到循环尾 ()
.如果真结束
列表框1.加入项目 (根目录 ＋ 子目录, ) ' 把子目录加入列表
子目录 ＝ 寻找文件 (, #子目录) ' 注意,这种方法只支持一层目录的搜索
.判断循环尾 ()