批量删除文件夹内空文件

分割文本 ＝ 分割文本 (编辑框1.内容, #换行符, )
.计次循环首 (取数组成员数 (分割文本), i)
文本 ＝ 分割文本 [i]
.如果真 (到数值 (取文本右边 (文本, 取文本长度 (文本) － 1 － 寻找文本 (文本, “：”, , 假))) ÷ 1024 ＜ 10) ' 一般word、xls等空文件也会有几kb大小，所以小于10kb的基本为空文件
编辑框2.加入文本 (“已删除的空文件：” ＋ 文本 ＋ #换行符)
删除文件 (取文本左边 (文本, 寻找文本 (文本, “：”, , 假) － 4))
.如果真结束

.计次循环尾 ()