删除全盘所有指定后缀格式的文件

.判断循环首 (文件名 ≠ “”)
处理事件 ()
.如果真 (文件名 ≠ “.” 且 文件名 ≠ “..”)
删除文件 (路径 ＋ 文件名)
' 超级列表框1.插入表项 (, 路径 ＋ 文件名, , , , )
.如果真结束
文件名 ＝ 寻找文件 (, )
.判断循环尾 ()
文件名 ＝ 寻找文件 (路径 ＋ “*.*”, #子目录)
.判断循环首 (文件名 ≠ “”)
处理事件 ()
.如果真 (取文本左边 (文件名, 1) ≠ “.”)
删除 (路径 ＋ 文件名, 后缀)
.如果真结束
文件名 ＝ 寻找文件 (, #子目录)
.判断循环尾 ()