-
本版专家分：0结帖率 80% -
请问文件粉碎 代码谁有 提供学习，谢谢！
-
本版专家分：5
-
https://wenku.baidu.com/view/22dcb9c6c0c708a1284ac850ad02de80d4d8069d.html
参考cmd部分
-
版主本版专家分：409025
-
-
名人
2014年 荣获名人称号
2013年 荣获名人称号
2012年 荣获名人称号
-
- 状元 2013年 总版技术专家分年内排行榜第一
-
- 探花 2014年 总版技术专家分年内排行榜第三
-
- 进士 2012年 总版技术专家分年内排行榜第四
-
-
很简单，用随机数填充改写文件，最后把文件删除，ok
-
本版专家分：467860
-
-
进士
2018年总版新获得的技术专家分排名前十
2017年 总版技术专家分年内排行榜第十
2013年 总版技术专家分年内排行榜第八
-
-
铜牌
2018年12月 总版技术专家分月排行榜第三
2018年11月 总版技术专家分月排行榜第三
2017年2月 总版技术专家分月排行榜第三
-
-
红花
2019年1月 .NET技术大版内专家分月排行榜第一
2018年12月 .NET技术大版内专家分月排行榜第一
2018年11月 .NET技术大版内专家分月排行榜第一
2018年10月 .NET技术大版内专家分月排行榜第一
2018年9月 .NET技术大版内专家分月排行榜第一
2018年7月 .NET技术大版内专家分月排行榜第一
2018年6月 .NET技术大版内专家分月排行榜第一
2018年1月 .NET技术大版内专家分月排行榜第一
2017年5月 .NET技术大版内专家分月排行榜第一
2017年4月 .NET技术大版内专家分月排行榜第一
2017年3月 .NET技术大版内专家分月排行榜第一
2017年2月 .NET技术大版内专家分月排行榜第一
2016年10月 .NET技术大版内专家分月排行榜第一
2016年8月 .NET技术大版内专家分月排行榜第一
2016年7月 .NET技术大版内专家分月排行榜第一
-
-
黄花
2019年4月 .NET技术大版内专家分月排行榜第二
2019年3月 .NET技术大版内专家分月排行榜第二
2018年8月 .NET技术大版内专家分月排行榜第二
2018年4月 .NET技术大版内专家分月排行榜第二
2018年3月 .NET技术大版内专家分月排行榜第二
2017年12月 .NET技术大版内专家分月排行榜第二
2017年9月 .NET技术大版内专家分月排行榜第二
2017年7月 .NET技术大版内专家分月排行榜第二
2017年6月 .NET技术大版内专家分月排行榜第二
2016年12月 .NET技术大版内专家分月排行榜第二
2016年9月 .NET技术大版内专家分月排行榜第二
2016年6月 .NET技术大版内专家分月排行榜第二
2016年3月 .NET技术大版内专家分月排行榜第二
2016年1月 .NET技术大版内专家分月排行榜第二
2015年12月 .NET技术大版内专家分月排行榜第二
2015年2月 .NET技术大版内专家分月排行榜第二
2015年1月 .NET技术大版内专家分月排行榜第二
2014年11月 .NET技术大版内专家分月排行榜第二
2014年5月 .NET技术大版内专家分月排行榜第二
2014年4月 .NET技术大版内专家分月排行榜第二
2012年2月 多媒体/设计/Flash/Silverlight 开发大版内专家分月排行榜第二
-
-
是这样的。重新胡乱写一遍数据，然后再删除。
-
本版专家分：515 -
Public Function KillFileTrue(ByVal strFile As String) As Boolean
On Error Resume Next '如果因为用户权限、文件占用等原因，仍然无法粉碎，考虑其他方案。
If Not IO.File.Exists(strFile) Then Return True
SetAttr(strFile, FileAttribute.Normal)
IO.File.WriteAllText(strFile, "Deleted in " & Now)
IO.File.Delete(strFile)
Return IO.File.Exists(strFile)
End Function
应对普通的恢复软件，足够了，效率也高，即使采用恢复软件之后得到的内容也只是“Deleted in 2018/11/1 14:52:43”。
-
本版专家分：515
-
Return Not IO.File.Exists(strFile)
这一行，改一下。删除之后，文件不存在则代表执行成功。
