批量删除同类型文件

.判断循环首 (局部_文件地址 ≠ “”)
局部_文件地址 ＝ 寻找文件 (编辑框_文件目录.内容 ＋ “\*.” ＋ 程序集_后缀, )
局部_是否删除 ＝ 删除文件 (编辑框_文件目录.内容 ＋ “\” ＋ 局部_文件地址)
.如果真 (局部_文件地址 ＝ “”)
跳出循环 ()
.如果真结束
局部_删除数量 ＝ 局部_删除数量 ＋ 1
列表框1.加入项目 (取重复文本 (3 － 取文本长度 (到文本 (局部_删除数量)), “0”) ＋ 到文本 (局部_删除数量) ＋ “----------->” ＋ 局部_文件地址, )
.判断循环尾 ()
信息框 (“已经成功删除” ＋ 到文本 (局部_删除数量) ＋ “个文件”, 0, , )