易语言怎么删除一个文件夹下的一类文件

写法如下：
.版本
2
.程序集
启动窗口程序集
.子程序
_删除目录按钮_被单击
.局部变量
欲删除的目录,
文本型
.局部变量
是否删除成功,
逻辑型
输入框
(“请输入欲删除的目录”,
“输入”,
“”,
欲删除的目录,
#输入文本)
.如果真
(欲删除的目录
≠
“”)
欲删除的目录
＝
选择
(取文本右边
(欲删除的目录,
1)
≠
“\”,
欲删除的目录
＋
“\”,
欲删除的目录)
.如果真
(信息框
(“确定要删除吗？”,
#是否钮
＋
#询问图标,
)
＝
#是钮)
是否删除成功
＝
删除目录
(欲删除的目录)
.如果
(是否删除成功
＝
真)
信息框
(“删除成功”,
0,
)
.否则
信息框
(“删除失败”,
0,
)
.如果结束
.如果真结束
.如果真结束

源码在下面，目的是删除桌面新建文件夹里的TXT文本文件。
________________________________________________________
.版本
2
.支持库
shell
.局部变量
文件,
文本型
文件
＝
寻找文件
(取特定目录
(3)
＋
“新建文件夹\*.txt”,
)
.判断循环首
(文件
≠
“”)
删除文件
(取特定目录
(3)
＋
“新建文件夹\”
＋
文件)
文件
＝
寻找文件
(,
)
.判断循环尾
()
________________________________________________________