ИнтеллигенцияX

Программная очистка корзины используя Windows API

Imports System.Runtime.InteropServices
Public Class Form1
    Enum RecycleFlags As Integer
        SHERB_NOCONFIRMATION = &H1
        SHERB_NOPROGRESSUI = &H1
        SHERB_NOSOUND = &H4
    End Enum
    Dim EmptyRecycleBin()
    <DllImport("Shell32.dll")> Private Shared Function SHEmptyRecycleBin(ByVal hwnd As IntPtr, ByVal pszRootPath As String, ByVal dwFlags As RecycleFlags) As Integer
    End Function
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        SHEmptyRecycleBin(IntPtr.Zero, Nothing, RecycleFlags.SHERB_NOSOUND Or RecycleFlags.SHERB_NOCONFIRMATION)
    End Sub
End Class