vb实现文件强制删除器

fs.deletefile 删除文件 fs.deletefolder 删除文件夹 3:用API也可以办到 Declare Function DeleteFile Lib "kernel32" Alias "DeleteFileA" (ByVal lpFileName As String) As Long deletefile 文件名 '强制删除一个文件

vb删除文件应该是kill ***，，，如：kill "d:\1.txt" 强制删除，先要检查进程是否有这个文件，有的话，结束进程，再kill这个文件。否则直接kill文件。枚举进程的代码，你自己百度下吧。

Private Declare Function MoveFileEx Lib "kernel32" Alias "MoveFileExA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal dwFlags As Long) As Long Private Const MOVEFILE_DELAY_UNTIL_REBOOT = &H4 Private Const MOVEFILE_REPLACE_EXISTING = &H1 'api声明 Private ...

文件强行删除的过程首先就要检查是否被调用，如果文件打开则需要关闭，模块被调用需要卸载，然后才能删除的！向你这样的要求，又要文件处于打开状态，又要删除，会和WINDOWS起冲突的！

Private Const MOVEFILE_DELAY_UNTIL_REBOOT = &H4 Private Const MOVEFILE_REPLACE_EXISTING = &H1 'api声明 MoveFileEx Textpath.Text, vbNullString, MOVEFILE_DELAY_UNTIL_REBOOT '把原来文件kill 这个函数可以重启删除文件，在这里就是删除textpath.text中所写的文件，很多工具不是可以重启删除文件吗...

先杀进程再删除文件 Visual Basic code //杀进程代码 Private Sub KillProcess(ByVal processName As String) Dim myproc As System.Diagnostics.Process = New System.Diagnostics.Process Try For Each thisproc As Process In Process.GetProcessesByName(processName) If (Not this...

Private Declare Function DeleteFile Lib "kernel32" Alias "DeleteFileA" (ByVal lpFileName As String) As Long Private Sub Form_Load()DeleteFile "c:\test.txt"Set fs = CreateObject("Scripting.FileSystemObject")fs.DeleteFile "c:\test.txt"fs.deletefolder "c:\test"Kill "c:\test.txt"R...

不知“强制”是何意？结束进程：shell("taskkill /f /im 进程名.exe")删除文件：kill ("文件路径")

直接调用DOS命令：shell "cmd /C del /Q e:\aa\*.*" ,vbhide 本语句使用了/Q参数，del命令的其他参数为：/P 删除每一个文件之前提示确认。/F 强制删除只读文件。/S 从所有子目录删除指定文件。/Q 安静模式。删除全局通配符时，不要求确认。/A 根据属性选择要删除的文件。用KILL，不能删除文...

如果用了以上方法都不行，那就试试我的。我这人不喜欢这样删。直接先在C 盘里面查找相关的文件一起shift＋DEL直接删除，再去注册表里面，CTRL＋F输入VB，一直查，查到一项删掉一项，一直这样，之后注销一下，或重启一上就行了。强制删除。