文件粉碎删除代码

文件粉碎删除代码 @echo off rem 文件粉碎工具 echo 危险操作! pause for /f "tokens=3*" %%a in ('dir /-c %1^|find "文件"') do fsutil file setzerodata offset=0 length=%%a %1 del %1 echo 文件已彻底粉碎完毕! Pause [C/C++] 文件粉碎机代码 粉碎机, 文件, 代码 看了一个文件粉碎机VB源代码，难道文件彻底的删除就是将打开的文件所有的数据清零， 然后删除, 那C语言用此也可以实现喽, Private Sub Delete_Click() Dim i As Integer Dim j As Integer Dim filenumber As Integer Dim filesize As Long If List1.ListCount = 0 Then Exit Sub i = MsgBox("执行粉碎后将无法恢复，继续吗,", 33, "文件粉碎") If i = 2 Then Exit Sub For i = 0 To List1.ListCount - 1 SetAttr List1.List(i), vbNormal Next i For i = 0 To List1.ListCount - 1 filenumber = FreeFile Open List1.List(i) For Binary As #filenumber If filesize = 0 Then GoTo continue jdt.Max = filesize jdt.Min = 0 If filesize <= 1000000 Then Put #filenumber, , String$(filesize, Chr$(0)) jdt.Value = filesize Else For j = 1 To filesize \ 1000000 Put #filenumber, , String(1000000, Chr$(0)) jdt.Value = jdt.Value + 1000000 Next j Put #filenumber, , String(filesize Mod 1000000, Chr$(0)) jdt.Value = filesize End If jdt.Value = 0 continue: Close filenumber Kill List1.List(i) Next i MsgBox "粉碎完成" List1.Clear Command3.Enabled = False End Sub 四、批处理删除方法: 方法解释: 这里使用人在井天 的批处理，网上虽然流传很多批处理删除代码。但是都没有考虑到文件夹可能调整了属性的问题。人在井天的批处理首先调用Cacls 命令行给文件夹赋所有的权限，然后进行删除。代码如下: @echo y|Cacls %* /c /t /p Everyone:f DEL /F/A/Q %* RD /S /Q [url=file://\\?\%]\\?\%[/url]* @pause 删除方法: 把上面的代码保存成:万能删除工具.bat ，然后把要删除的文件或文件夹拖到这个文件上，松开鼠标即可。 下载地址:点击这里下载万能删除批处理工具