vb.net 上的文件删除异常

Question

My VB.NET junk cleaner cannot delete aria-Debug-10144.log since it is used by another process.

I tried this:

Imports System.Collections.ObjectModel
Imports System.IO

Public Class Form1
    Dim TempDirs As ReadOnlyCollection(Of String)
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        TempDirs = (My.Computer.FileSystem.GetDirectories("C:\Users\Aitor\AppData\Local\Temp"))
        Dim ListDirs As List(Of String) = TempDirs.ToList
        Dim directoryName As String = "C:\Users\Aitor\AppData\Local\Temp"
        For Each deleteFile In Directory.GetFiles(directoryName, "*.*", SearchOption.TopDirectoryOnly)
            If Not deleteFile.ToString = "aria-Debug-10144.log" Then
                File.Delete(deleteFile)
            End If
        Next
        MsgBox("Clean completed!", MsgBoxStyle.OkOnly + MsgBoxStyle.Information, "Results")
    End Sub
End Class

But it still tries to do it.

Can anybody help me?

Answer 1

There are two reasons:

Firstly, the selected file is being occupied by another program. In this case, you need to determine whether the selected file is occupied before deleting it. Here is a small example.

Imports System.Runtime.InteropServices

Public Class Form1
    <DllImport("kernel32.dll")>
    Public Shared Function _lopen(ByVal lpPathName As String, ByVal iReadWrite As Integer) As IntPtr

    End Function
    <DllImport("kernel32.dll")>
    Public Shared Function CloseHandle(ByVal hObject As IntPtr) As Boolean

    End Function

    Public Const OF_READWRITE As Integer = 2
    Public Const OF_SHARE_DENY_NONE As Integer = &H40
    Public Shared ReadOnly HFILE_ERROR As IntPtr = New IntPtr(-1)

    Public Shared Function IsFileOccupied(ByVal filePath As String) As Boolean
        Dim vHandle As IntPtr = _lopen(filePath, OF_READWRITE Or OF_SHARE_DENY_NONE)
        CloseHandle(vHandle)
        Return If(vHandle = HFILE_ERROR, True, False)
    End Function


    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        If (IsFileOccupied("C:\Users\juliex\AppData\Local\Temp\aria-debug-13836.log")) Then
            MessageBox.Show("File is already occupied")
        Else
            MessageBox.Show("File is not occupied")
            'Then do some delete operation.
        End If
    End Sub
End Class

Secondly, the selected file is a temporary file and is currently locked. If you want to clear the temporary files it owns, you need to have full control to unlock these files and then delete them! You should be very careful if you want to delete the TEMP file, whether it is owned by the application or by another owner. The original application may have applied the lock because it wanted to use the file! At this time you can refer to this link below:

1. How can I unlock a file that is locked by a process in .NET

2. https://social.msdn.microsoft.com/Forums/vstudio/en-US/9e2044c5-ae5d-4552-a335-01cc567dfc58/how-to-unlock-a-file-used-by-other-process?forum=csharpgeneral