Очистка корзины

Программная очистка корзины используя 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
  Метки:
  Евгений
  Просмотров: 1 382
  Запись опубликована в 16:56

Есть что сказать? Тогда действуй!


:wink: :twisted: :roll: :oops: :mrgreen: :lol: :idea: :evil: :cry: :arrow: :?: :-| :-o :-P :-D :-? :) :( :!: 8-O 8)