有没有这样的易语言源码？

.版本 2

.程序集 窗口程序集1

.子程序 _驱动器框1_驱动器被改变

目录框1.目录 ＝ 驱动器框1.驱动器 ＋ “:\”

.子程序 _目录框1_目录被改变

改变目录 (目录框1.目录)
文件框1.目录 ＝ 目录框1.目录

.子程序 _按钮1_被单击
.局部变量 找到的文件, 文本型
.局部变量 路径, 文本型

路径 ＝ 目录框1.目录
找到的文件 ＝ 寻找文件 (编辑框1.内容, )
.判断开始 (找到的文件 ＝ “”)
信息框 (“未找到文件”, #警告图标, )
.默认
.判断循环首 (找到的文件 ≠ “”)

.如果真 (信息框 (“已找到文件：” ＋ 找到的文件 ＋ “.是否删除？”, #信息图标 ＋ #是否钮, ) ＝ #是钮)
删除文件 (找到的文件)
输出调试文本 (找到的文件)
.如果真结束
找到的文件 ＝ 寻找文件 (, )

.判断循环尾 ()

.判断结束

文件框1.目录 ＝ 目录框1.目录