vb点虐 强制删除文件 vb删除某个文件

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

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

成都创新互联专注于石柱土家族网站建设服务及定制，我们拥有丰富的企业做网站经验。 热诚为您提供石柱土家族营销型网站建设，石柱土家族网站制作、石柱土家族网页设计、石柱土家族网站官网定制、小程序制作服务，打造石柱土家族网络公司原创品牌,更为您提供石柱土家族网站排名全网营销落地服务。

vb点虐 删除文件

Private Sub btnRemovePath_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRemovePath.Click

Try

' 先建立目录以便用于后续的删除示范。

If Not Directory.Exists("D:\网易") Then

Directory.CreateDirectory(" D:\网易 \Test1")

Directory.CreateDirectory(" D:\网易 \Test2")

Directory.CreateDirectory(" D:\网易 \Test3")

End If

' 删除子目录 Test1。

Directory.Delete(" D:\网易 \Test1", True)

' 删除子目录 Test2。

Dim myDirectoryInfo As New DirectoryInfo(" D:\网易 \Test2")

myDirectoryInfo.Delete(True)

' 将目录 C:\AlexDirDemo 及其以下的文件和子目录全数删除。

Directory.Delete(" D:\网易 ", True)

Catch ex As Exception

MessageBox.Show(ex.Message)

Exit Sub

End Try

' 启动 Windows 资源管理器。

Process.Start("explorer.exe", "D:\")

End Sub

vb点虐 怎么强制删除文件

先杀进程再删除文件

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 thisproc.CloseMainWindow()) Then

thisproc.Kill()

End If

Next

Catch

End Try

End Sub

VB 强制删除文件和文件夹

看看能够帮到你吧。。。。3个方法可以实现:

1:

kill 文件 '删除文件

rmdir 文件夹 '删除文件夹

如果想要使用 RmDir 来删除一个含有文件的目录或文件夹，则会发生错误。在试图删除目录或文件夹之前，先使用 Kill 语句来删除所有文件。

2:

或者用对象的方法:

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 文件名 '强制删除一个文件