Cancellazione Cestino

http://forum.masterdrive.it/visual-basic-6-17/monitorare-cestino-windows-65225/
cancellazione cestino recycle


Option Explicit

'API declarations:


Private Declare Function SHQueryRecycleBin Lib "shell32" Alias "SHQueryRecycleBinA" ( _
ByVal pszRootPath As String, _
pSHQueryRBInfo As SHQUERYRBINFO) As Long

Private Type ULARGE_INTEGER
LowPart As Long
HighPart As Long
End Type

Private Type SHQUERYRBINFO
cbSize As Long
i64Size As ULARGE_INTEGER
i64NumItems As ULARGE_INTEGER
End Type

Private Declare Function SHEmptyRecycleBin Lib "shell32" Alias "SHEmptyRecycleBinA" ( _
ByVal hWnd As Long, _
ByVal pszRootPath As String, _
ByVal dwFlags As Long) As Long

Const SHERB_NOCONFIRMATION = &H1
Const SHERB_NOPROGRESSUI = &H2
Const SHERB_NOSOUND = &H4

Private Declare Function SHUpdateRecycleBinIcon Lib "shell32" () As Long

'General:





Private Function IsRecycleBinEmpty() As Boolean
Dim RecycleBin As SHQUERYRBINFO

RecycleBin.cbSize = LenB(RecycleBin)
Call SHQueryRecycleBin(vbNullString, RecycleBin)
IsRecycleBinEmpty = CBool((RecycleBin.i64NumItems.LowPart + RecycleBin.i64NumItems.HighPart) = 0)
End Function


Private Sub EmptyRecycleBin(Optional ByVal Flags As Long)
Call SHEmptyRecycleBin(0, vbNullString, Flags)
Call SHUpdateRecycleBinIcon
End Sub

Private Sub RestoreItems()
'Help me, please :)

End Sub

'Events:


Private Sub Form_Load()
If Not IsRecycleBinEmpty Then
EmptyRecycleBin SHERB_NOCONFIRMATION Or SHERB_NOPROGRESSUI
End If
End Sub