文件粉碎问题

[一念工作室]

请问文件粉碎 代码谁有 提供学习，谢谢！

[melinyi]

https://wenku.baidu.com/view/22dcb9c6c0c708a1284ac850ad02de80d4d8069d.html

参考cmd部分

[threenewbee]

很简单，用随机数填充改写文件，最后把文件删除，ok

[以专业开发人员为伍]

是这样的。重新胡乱写一遍数据，然后再删除。

[wq1282]

    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”。

[wq1282]

Return Not IO.File.Exists(strFile)

这一行，改一下。删除之后，文件不存在则代表执行成功。

[橘子皮...]

我想楼主主要想问的，就是文件被占用如何粉碎。。。