Papierkorb leeren - VB und API

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44

Option Explicit On
Option Strict On



Friend Class clsSafeNativeMethods


 Friend Const UserInterface_NOCONFIRMATION As Short = &H1S
 Friend Const UserInterface_NOPROGRESS As Short = &H2S
 Friend Const UserInterface_NOSOUND As Short = &H4S

 Friend Declare Function SHEmptyRecycleBin Lib "shell32.dll" Alias "SHEmptyRecycleBinA" _
            (ByVal hwnd As Integer, ByVal pszRootPath As String, ByVal dwFlags As Integer) As Integer

 Friend Declare Function SHUpdateRecycleBinIcon Lib "shell32.dll" () As Integer

End Class
  


'Aufruf mit Statusmeldung

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

        clsSafeNativeMethods.SHEmptyRecycleBin(Me.Handle.ToInt32, _
                                                  vbNullString, _
                                                  clsSafeNativeMethods.UserInterface_NOCONFIRMATION)

        clsSafeNativeMethods.SHUpdateRecycleBinIcon()

End Sub

'Aufruf ohne Status und Sound

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


        clsSafeNativeMethods.SHEmptyRecycleBin(Me.Handle.ToInt32, vbNullString, _
            clsSafeNativeMethods.UserInterface_NOCONFIRMATION + clsSafeNativeMethods.UserInterface_NOPROGRESS _
            + clsSafeNativeMethods.UserInterface_NOSOUND)
        clsSafeNativeMethods.SHUpdateRecycleBinIcon()

End Sub