nbre d'element de la corbeille

Private Const S_OK = &H0

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 SHQueryRecycleBin Lib "shell32.dll" _ Alias "SHQueryRecycleBinA" (ByVal pszRootPath As String, _ pSHQueryRBInfo As SHQUERYRBINFO) As Long

Private Sub Command1_Click()

Dim rbinfo As SHQUERYRBINFO

Dim retval As Long

rbinfo.cbSize = Len(rbinfo)

retval = SHQueryRecycleBin("C:\", rbinfo)

If (rbinfo.i64NumItems.LowPart And &H80000000) = &H80000000 Or _ rbinfo.i64NumItems.HighPart > 0 Then
TxtNb = "La Poubelle Contient plus de 2,147,483,647 items."
Else
TxtNb = "La Poubelle Contient : " & rbinfo.i64NumItems.LowPart & " items."
End If

If (rbinfo.i64Size.LowPart And &H80000000) = &H80000000 Or rbinfo.i64Size.HighPart > 0 Then
TxtSize = "La Poubelle Contient plus de 2,147,483,647 bytes."
Else
TxtSize = "La Poubelle Contient : " & rbinfo.i64Size.LowPart & " bytes."
End If

End Sub