如何用代码实现覆写方式删除文件？

作者：绿色风分类：时间：2022-08-17 浏览：84

楼主
kevinchengcw

Q: 如何用代码实现覆写方式删除文件？
A: 对于普通的文件删除，一般仅是对相应文件做了一个删除标记，如此删除的文件，利用工具软件即可将删除的文件找回，现在这里借鉴一些保密软件的利用指定字符覆写数据区的方式来彻底删除文件内容的方法写一小段代码模拟该功能，代码如下:

Sub test()
Dim Fn
Dim M, N As Double
Fn = Application.GetOpenFilename("所有文件, *.*") '用打开文件菜单查找文件
If Fn = False Then Exit Sub '如果选择了打开文件菜单上的取消按钮则退出程序
N = FileLen(Fn) '取得指定文件的储存长度字节数
Open Fn For Output As #1 '打开文件用于写入数据
For M = 1 To N '循环写入字节数长度次数
Print #1, Chr(0) '每次写入一个Ascii值为0的字符
Next M
Close #1 '写入完毕后关闭文件
Kill Fn '删除指定文件
MsgBox "以下文件覆写删除完成：" & vbNewLine & Fn, 0, "" '完成后提示一下
End Sub

这样最终虽利用了系统的功能删除了文件，但是文件数据已经被无用数据覆写了一遍，所以既使用工具软件找回了文件也无任何意义了。
当然，还可以增加循环的方式提高对数据区的覆写次数，以提高安全删除级别，及增加文件多选功能，以实现批量删除，大家自由发挥了。

附示例文件。

覆写删除测试.rar

2楼
bishunbiao

保密工作必备手法

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表