删除重复名文件.e

b ＝ 文件_枚举 (a, “*.*”, 数组, 真)
.计次循环首 (b, i)
文件名 ＝ 文件_取文件名 (数组 [i], 真)
重复名 ＝ 文本_取出中间文本 (数组 [i], a ＋ “\”, “)”)
.如果 (重复名 ≠ “”)
文件_删除到回收站 (a ＋ “\” ＋ 文件名, 1)
.否则
.如果结束
.计次循环尾 ()
信息框 (“成功”, 0, “提示”, )