很好的文件粉碎工具

易语言 2020-08-20 12:51:21

很好的文件粉碎工具

a = 列表框1.取项目数 ()
.计次循环首 (a, 计次)
输出调试文本 (a - 计次)
.如果真 (强制删除文件 (列表框1.取项目文本 (a - 计次)))
列表框1.删除项目 (a - 计次)
.如果真结束
处理事件 ()
.计次循环尾 ()

.子程序 强制删除文件, 逻辑型, 公开, 可以删除掉所有类型的文件包括运行的程序。
.参数 文件名, 文本型, , 文件所在位置
.局部变量 目录, 文本型
.局部变量 安全性结构, 安全性结构_

目录 = 取特定目录 (11) + 到文本 (取启动时间 ())
创建目录_ (目录, 安全性结构)
创建目录_ (目录 + “\....\”, 安全性结构)
移动文件_ (文件名, 目录 + “\....\TemporaryFile”)
移动文件_ (目录 + “\....\”, 目录 + “\TemporaryFile”)
删除目录 (目录)
返回 (取反 (文件是否存在 (文件名)))