admin管理员组文章数量:1530298
2023年12月16日发(作者：)
文件粉碎删除代码
@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 unt = 0 Then Exit Sub
i = MsgBox("执行粉碎后将无法恢复，继续吗？", 33, "文件粉碎")
If i = 2 Then Exit Sub
For i = 0 To unt - 1
SetAttr (i), vbNormal
Next i
For i = 0 To unt - 1
filenumber = FreeFile
Open (i) For Binary As #filenumber
If filesize = 0 Then GoTo continue
= filesize
= 0
If filesize<= 1000000 Then
Put #filenumber, , String$(filesize, Chr$(0))
= filesize
Else
For j = 1 To filesize 1000000
Put #filenumber, , String(1000000, Chr$(0))
= + 1000000
Next j
Put #filenumber, , String(filesize Mod 1000000, Chr$(0))
= filesize
End If
= 0
continue: Close filenumber
Kill (i)
Next i
MsgBox "粉碎完成"
d = False
End Sub
四、批处理删除方法：
方法解释：
这里使用人在井天的批处理，网上虽然流传很多批处理删除代码。但是都没有考虑到文件夹可能调整了属性的问题。人在井天的批处理首先调用Cacls命令行给文件夹赋所有的权限，然后进行删除。代码如下：
@echo y|Cacls %* /c /t /p Everyone:f
DEL /F/A/Q %*
RD /S /Q [url=file://?%]?%[/url]*
@pause
删除方法：
把上面的代码保存成：万能删除工具.bat ，然后把要删除的文件或文件夹拖到这个文件上，松开鼠标即可。
下载地址：点击这里下载万能删除批处理工具
版权声明：本文标题：文件粉碎删除代码 内容由热心网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：https://m.elefans.com/dongtai/1702727481a21391.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。
发表评论