删指定文件夹及指定扩展名文件

删指定文件夹及指定扩展名文件例子。

.如果真 (编辑框1.内容 ＝ “将文件夹拖至此处即可”)
编辑框3.加入文本 (“请看清楚上面的橙色字体” ＋ #换行符)
返回 ()
.如果真结束
Dgss (编辑框1.内容, 编辑框2.内容, 假, 文件名数组)
.计次循环首 (取数组成员数 (文件名数组), n)
s ＝ 超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (s, 0, 到文本 (n))
超级列表框1.置标题 (s, 1, 文件名数组 [n])
超级列表框1.置标题 (s, 2, 文本_取右边 (文件名数组 [n], “.”, , ))
超级列表框1.置标题 (s, 3, 到文本 (取文件时间 (编辑框1.内容 ＋ “\” ＋ 文件名数组 [n])))
.计次循环尾 ()
编辑框3.加入文本 (“搜索完毕！该文件夹一共 ” ＋ 到文本 (超级列表框1.取表项数 ()) ＋ “ 个” ＋ 编辑框2.内容 ＋ “扩展名的文件” ＋ #换行符)