易语言删除指定后缀名文件

指定目录，路径是固定的，然后再枚举指定目录下得所有文件的名字，然后用正则搜索想删除的后缀文件名，然后就是把搜索到的用一个循环删除掉，参考如下：
.版本 2
.支持库 shell

.子程序 _按钮1_被单击
.局部变量 a, 文本型
.局部变量 成员数, 整数型
.局部变量 文本, 文本型, , "0"
.局部变量 当前成员编号, 整数型, 静态

编辑框1.内容 ＝ “”
a ＝ 寻找文件 (取特定目录 (3) ＋ “\*.txt”, )
.判断循环首 (a ≠ “”)
编辑框1.内容 ＝ 编辑框1.内容 ＋ a ＋ #换行符
a ＝ 寻找文件 (, )
.判断循环尾 ()
文本 ＝ 分割文本 (编辑框1.内容, #换行符, )
成员数 ＝ 取数组成员数 (文本)
.计次循环首 (成员数, )
.如果 (编辑框1.内容 ＝ “”)
跳出循环 ()
.否则
.判断开始 (当前成员编号 ＝ 成员数)
当前成员编号 ＝ 1
.默认
当前成员编号 ＝ 当前成员编号 ＋ 1
.判断结束
删除文件 (取特定目录 (3) ＋ “\” ＋ 文本 [当前成员编号])
.如果结束

.计次循环尾 ()

.版本 2
.程序集 窗口程序集1
.程序集变量 文件名, 文本型
.程序集变量 删文件, 文本型, , "0"
.子程序 __启动窗口_创建完毕
文件名 ＝ 寻找文件 (取运行目录 () ＋ “\*.” ＋ 编辑框1.内容, )
.循环判断首 ()
文件名 ＝ 寻找文件 (, )
加入成员 (删文件, 文件名)
.循环判断尾 (文件名 ≠ “”)
.子程序 _按钮1_被单击
.局部变量 文件号, 整数型
.如果真 (信息框 (“真要删除后缀名为” ＋ 编辑框1.内容 ＋ “的文件吗？”, #是否钮, “警告！”) ＝ #否钮)
结束 ()
.如果真结束
.计次循环首 (取数组成员数 (删文件), 文件号)
删除文件 (取运行目录 () ＋ “\” ＋ 删文件 [文件号] ＋ “.” ＋ 编辑框1.内容)
.计次循环尾 ()

版本 2.支持库 iext
.子程序 递归寻找MP3, , , 递归样式.参数 目录, 文本型
.参数 添加列表用, 逻辑型, , 真添加列表，假直接搜索。
.局部变量 文件名, 文本型

处理事件 ().如果真 (取文本右边 (目录, 1) ≠ “\”)
目录 ＝ 目录 ＋ “\”
.如果真结束
文件名 ＝ 寻找文件 (目录 ＋ “*.mp3”, )
.判断循环首 (文件名 ≠ “”)
加入成员 (mp3组, 目录 ＋ 文件名)
.如果真 (添加列表用 ＝ 真)
加入成员 (随机mp3组, 目录 ＋ 文件名)
.如果真结束
列表窗口.播放列表框.插入表项 (-1, 目录 ＋ 文件名, , , , )
文件名 ＝ 寻找文件 (, )
.判断循环尾 ()
文件名 ＝ 寻找文件 (目录 ＋ “*.*”, #子目录)
.判断循环首 (文件名 ≠ “”)
.如果真 (取文本左边 (文件名, 1) ≠ “.”)
递归寻找MP3 (目录 ＋ 文件名, 添加列表用)
.如果真结束
文件名 ＝ 寻找文件 (, #子目录)
.判断循环尾 ()