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 ----------------------------- Dim qrbi As SHQUERYRBINFO qrbi.cbSize = Len(qrbi) Call SHQueryRecycleBin("c:\", qrbi) MsgBox qrbi.i64SizeLo |