Cancellare Cestino

D:\Procedure\DelCestinoExe
**************************


'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

Private Const BlockSize = 32768
Private Const ERR_INVALID_FIELD_TYPE = vbObjectError + 1000

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 Form_Load()

' cancellazione Cestino


If Not IsRecycleBinEmpty Then
EmptyRecycleBin SHERB_NOCONFIRMATION Or SHERB_NOPROGRESSUI
End If
Unload Me
End Sub