易语言怎样把文件夹中的文件全部显示在列表框里源码

2024年11月27日 16:53
有1个网友回答
网友(1):

.版本 2
.程序集 窗口程序集1
.子程序 __启动窗口_创建完毕
.局部变量 目录, 文本型
.局部变量 找, 文本型
' 第一个按钮看不懂你要干什么
目录 = “D:\应用\图片\*.*” ' 自己改
找 = 寻找文件 (目录, )
.判断循环首 (找 ≠ “”)
列表框1.加入项目 (找, )
找 = 寻找文件 (, )
.判断循环尾 ()
.子程序 _按钮2_被单击
.局部变量 文件路径, 文本型
.局部变量 文件, 文本型
' 不知道你是添加什么 是路径还是文件
' 路径类似上面
通用对话框1.打开 ()
文件路径 = 通用对话框1.文件名
文件 = 寻找文件 (文件路径, )
列表框1.加入项目 (文件, )
.子程序 _按钮3_被单击
列表框1.删除项目 (列表框1.现行选中项)
.子程序 _按钮4_被单击
列表框1.清空 ()