易语言 取文件夹里全部文件名（不要后缀名） 然后添加到列表框里

Question

如题所述

Answer 1

.版本 2
.支持库 shell

.子程序 _按钮1_被单击
.局部变量 目录, 文本型

目录 ＝ 浏览文件夹 (“要查找的文件夹”, )
文件搜索 (目录)

.子程序 文件搜索
.参数 文件目录, 文本型
.局部变量 文件, 文本型
.局部变量 texe, 文本型
.局部变量 temp, 文本型, , "0"
.局部变量 New, 文本型, , "0"

.如果真 (取文本右边 (文件目录, 1) ≠ “\”)
文件目录 ＝ 文件目录 ＋ “\”
.如果真结束
文件 ＝ 寻找文件 (文件目录 ＋ “*.*”, )
.判断循环首 (文件 ≠ “”)
处理事件 ()
texe ＝ 文件目录 ＋ 文件
temp ＝ 分割文本 (texe, “\”, )
New ＝ 分割文本 (temp [取数组成员数 (temp)], “.”, )
列表框1.加入项目 (New [1], )
文件 ＝ 寻找文件 (, )
.判断循环尾 ()
文件 ＝ 寻找文件 (文件目录 ＋ “*.*”, #子目录)
.判断循环首 (文件 ≠ “”)
.如果真 (取文本左边 (文件, 1) ≠ “.”)
文件搜索 (文件目录 ＋ 文件)
.如果真结束
文件 ＝ 寻找文件 (, #子目录)
.判断循环尾 ()本回答被提问者采纳