易语言如何删除指定文件夹内指定文件后缀格式文件，并且删除信息能在编辑框上显示出来，求源码

软件预览:

代码部分:

.版本 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.内容 ＋ 文件 ＋ #换行符
.如果真结束
文件 ＝ 寻找文件 (, )
.判断循环尾 ()