易语言 删除文件（） 如何删除同个文件夹中的一种类型的文件

Question

.版本 2
.支持库 xplib
.支持库 edroptarget
.支持库 eAPI

.程序集 窗口程序集1
.程序集变量 a, 整数型

.子程序 __启动窗口_创建完毕

XP风格 (2)
拖放对象1.注册拖放控件 (_启动窗口.取窗口句柄 ())

.子程序 _拖放对象1_得到文件
.参数 接收到的文件路径, 文本型

编辑框1.内容 ＝ 接收到的文件路径

.子程序 _按钮1_被单击

.计次循环首 (100, a)
提取资源文件图标 (编辑框1.内容, 0, 取运行目录 () ＋ “\” ＋ 到文本 (a) ＋ “.ico”, a)
.计次循环尾 ()

.子程序 _编辑框1_内容被改变

按钮1.禁止 ＝ 假

.子程序 _按钮2_被单击

' 删除文件 (“1.ico”)
这个源码的删除文件（）命令只是删除1.ico一个文件

如何能达到删除一个文件夹种所有的ICO文件能？

大虾们 帮个忙

Answer 1

目录 ＝ 取运行目录 ()＋ “\”
文件名 ＝ 寻找文件 (目录 ＋ “*.ico”, )
.判断循环首 (文件名 ≠ “”) ' 判断文件名是否有效，有效向下执行搜索。
删除文件 (文件名)
文件名 ＝ 寻找文件 (, ) ' 继续搜寻文件
.判断循环尾 ()追问

本人接触易语言没几天 看不懂啊- -

Answer 2

删除文件（取当前目录（）+“1.ico”）追问

用了 不过不管用. 不加取当前目录（） 还可以删掉一个1.ICO文件

加了取当前目录（）+就没反应了 什么都删除不了

追答

搞错了

删除文件（取当前目录（）+“\1.ico”）

追问

我用这个源码写出来的东西 从一个程序里搜索出来好几个.ico的文件
删除文件（取当前目录（）+“\1.ico”）代码只能删除文件名为1.ico的文件 不能删除所有.ico的文件啊

如果多次用 删除文件（取当前目录（）+“\1.ico”）把1.ico改成2.ico以此类推还是可以达到那样的效果的 但是这样太烂了吧 有没有更好的代码来代替呢？

追答

变量：A 类型：整数型
变量：B 类型：文本型

计次循环首（‘你要删除ico文件的数量，A）
B=到文本（A）
删除文件（取当前目录（）+“\”+B+“.ico”）

追问

非常抱歉 还是不行- -

本回答被提问者和网友采纳

Answer 3

新增变量m整数型
计次循环首（100，m）
删除文件（取运行目录（）+“\”+到文本（m）+“.ico”）
计次循环尾（）

Answer 4

Answer 5

.版本 2
.局部变量 n, 整数型
.计次循环首 (100, n)
删除文件 (取当前目录 () ＋ “\” ＋ 到文本 (n) ＋ “.ico”)
.计次循环尾 ()