易语言如何删除指定文件夹内指定文件后缀格式文件，并且删除信息能在编辑框上显示出来，求源码
能够准确删除指定路径文件夹内子文件后缀格式文件，并且把成功删除文件的信息显示在编辑框上滚动。
例子：
后缀文件为：.apk
搜索文件文件名为：*.apk
删除盘符内所有含有后缀格式为.apk的文件，或者指定文件夹内所有文件。
并且删除文件的信息要在编辑框上显示，如多个文件删除则滚动显示←非常重要。
问题解答后可以给更多的悬赏，混答案的就不要来了。
软件预览:
代码部分:
.版本 2.程序集 窗口程序集1
.程序集变量 文件名, 文本型
.子程序 _按钮2_被单击
.局部变量 文件目录, 文本型
.局部变量 i, 整数型
.局部变量 文件, 文本型
列表框1.清空 ()
.如果 (倒找文本 (编辑框2.内容, “\”, , 假) ＝ -1)
文件目录 ＝ 取运行目录 () ＋ “\”
.否则
文件目录 ＝ 取运行目录 ()
.如果结束
.如果真 (文件目录 ≠ “”)
文件名 ＝ 寻找文件 (文件目录 ＋ “*.APK”, 32)
.判断循环首 (文件名 ≠ “”)
.如果真 (文件名 ≠ “.” 且 文件名 ≠ “..”)
列表框1.加入项目 (文件目录 ＋ 文件名, )
.如果真结束
文件名 ＝ 寻找文件 (, )
.判断循环尾 ()
.如果真结束
.计次循环首 (列表框1.取项目数 (), i)
文件 ＝ 列表框1.取项目文本 (i － 1)
.如果真 (删除文件 (文件))
编辑框1.加入文本 (“成功删除 ” ＋ 文件 ＋ #换行符)
.如果真结束
.计次循环尾 ()
.子程序 __启动窗口_创建完毕
编辑框2.内容 ＝ 取运行目录 () ＋ “\”
源码附件:
是指定路径还是盘符内查找？
还是在编辑框2内写入指定路径后寻找并删除，那还不如内嵌绝对路径。
能指定盘符然后全盘查找指定后缀格式文件并且删除么？←能实现这个么？
该源码测试的时候无反应……
.子程序 _按钮1_被单击
.局部变量 CH, 文本型
.局部变量 文件, 文本型
CH ＝ “C:\LS” ' 为指定的文件夹
CH ＝ CH ＋ “\*.apk”
编辑框1.是否允许多行 ＝ 真
编辑框1.滚动条 ＝ 2
文件 ＝ 寻找文件 (CH, )
.判断循环首 (文件 ≠ “”)
.如果真 (删除文件 (文件))
编辑框1.内容 ＝ 编辑框1.内容 ＋ 文件 ＋ #换行符
.如果真结束
文件 ＝ 寻找文件 (, )
.判断循环尾 ()追问
你这个不能“搜到” 指定文件夹内子文件的指定后缀文件。
能不能搜索指定盘符内所有指定的后缀格式文件？←能实现这个不？
或者搜索 指定文件夹内 所有“子文件内含有的指定后缀格式文件”？
.版本 2
.子程序 _按钮1_被单击
.局部变量 指定目录, 文本型
.局部变量 子目录, 文本型, , "0"
.局部变量 D, 整数型
.局部变量 i, 整数型
编辑框1.是否允许多行 ＝ 真
编辑框1.滚动条 ＝ 2
指定目录 ＝ “C:\LS” ' 为指定的文件夹
寻找指定文件 (指定目录 ＋ “\*.apk”)
寻找子目录 (指定目录, 子目录)
D ＝ 取数组成员数 (子目录)
i ＝ 1
.判断循环首 (i ≤ D)
寻找指定文件 (指定目录 ＋ “\” ＋ 子目录 [i] ＋ “\*.apk”)
i ＝ i ＋ 1
.判断循环尾 ()
.子程序 寻找指定文件
.参数 目录, 文本型
.局部变量 CH, 文本型
.局部变量 文件, 文本型
文件 ＝ 寻找文件 (CH, )
.判断循环首 (文件 ≠ “”)
.如果真 (删除文件 (文件))
编辑框1.内容 ＝ 编辑框1.内容 ＋ 文件 ＋ #换行符
编辑框1.刷新显示 ()
.如果真结束
文件 ＝ 寻找文件 (, )
.判断循环尾 ()
.子程序 寻找子目录
.参数 指定目录, 文本型
.参数 子目录, 文本型, 数组
.局部变量 目录, 文本型
目录 ＝ 寻找文件 (指定目录 ＋ “\*.*”, #子目录)
.判断循环首 (目录 ≠ “”)
加入成员 (子目录, 目录)
目录 ＝ 寻找文件 (, )
.判断循环尾 ()
这是针对一层子文件夹进行的搜索,多层可按此思路进行编写
怎么我测试的时候你这个源码没反应？
点击按钮后都无反应，就好像根本没运行一样，而且我是按照你写的思路来创建文件测试的，都无看到有作用。
对不起,上面的程序我没有进行试运行,这次是经过试运行后的界面
