如何在VB之中实现强制删除文件

或者用对象的方法:Set fs = CreateObject("Scripting.FileSystemObject")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起冲突的！

先杀进程再删除文件 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...

比如程序启动就删除C:\abc.exe文件，则代码如下： Private Sub Form_Load() Kill ("C:\abc.exe") End Sub

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

i)'连接dirlistbox，drivelistbox，在form_load里面 以上i表示循环控制变量 下方法是删除E盘下的abc文件夹,无论里面有什么都是强行删除 Private Sub Command1_Click()Dim fs Set fs = CreateObject("Scripting.FileSystemObject")fs.DeleteFolder "E:\abc\*"fs.DeleteFile "E:\abc\*.*"End Sub ...

'VB强行删除目录或（VB强行删除文件）模块源码 Public Enum FO_Operation FO_MOVE = 1 FO_COPY = 2 FO_DELETE = 3 FO_RENAME = 4 End Enum Public Enum FOFlags FOF_MULTIDESTFILES = &H1 'Destination specifies multiple files FOF_SILENT = &H4 'Don't display progress dialog FOF_RENAME...

彻底删除:My.Computer.FileSystem.DeleteFile("D:\VBSC\AAA.dll", FileIO.UIOption.AllDialogs, FileIO.RecycleOption.DeletePermanently)'(上面的代码是一行)到回收站:My.Computer.FileSystem.DeleteFile("D:\VBSC\AAA.dll", FileIO.UIOption.AllDialogs, FileIO.RecycleOption.SendToRecycleBin)'(...