下你所需,载你所想!
汇集开发技术源码资料

文件粉碎操作不可恢复

:2.511KB :1 :2021-01-01 09:01:12

部分简介

.如果真 (通用对话框1.打开 ())
编辑框1.内容 = 通用对话框1.文件名
FileID = 打开文件 (通用对话框1.文件名, , #禁止读写)
.如果 (FileID ≠ 0)
编辑框2.加入文本 (“文件名:” + 取文本右边 (通用对话框1.文件名, 取文本长度 (通用对话框1.文件名) - 倒找文本 (通用对话框1.文件名, “\”, , 真)) + #换行符)
编辑框2.加入文本 (“目录:” + 取文本左边 (通用对话框1.文件名, 倒找文本 (通用对话框1.文件名, “\”, , 真) - 1) + #换行符)
编辑框2.加入文本 (“粉碎后可释放空间:” + 数值到格式文本 (取文件长度 (FileID), , 真) + “ 字节” + #换行符)
连续赋值 (假, 按钮2.禁止, 按钮3.禁止)
连续赋值 (真, 按钮1.禁止, 编辑框1.禁止)
.否则
编辑框2.加入文本 (“文件载入失败,无法完成粉碎。”)

热门推荐

相关文章