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