Zjištění velikosti obsahu koše
Na formulář přidejte tlačítko. V deklarační části formuláře zapište:
Private Type
SHQUERYRBINFO
cbSize As Long
i64SizeLo As Long
i64SizeHi As Long
i64NumItemsLo As Long
i64NumItemsHi As Long
End Type
Private Declare Function
SHQueryRecycleBin Lib "shell32" Alias _
"SHQueryRecycleBinA" ( ByVal pszRootPath As String, _
pSHQueryRBInfo As SHQUERYRBINFO) As Long
Na událost Click tlačítka:
Private Sub Command1_Click()
Dim qrbi
As SHQUERYRBINFO
qrbi.cbSize
= Len(qrbi)
Call SHQueryRecycleBin("c:\", qrbi)
MsgBox qrbi.i64SizeLo
End Sub