by ALIve SoFtWaReS (3 Submissions)
Category: Windows System Services
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Wed 26th January 2005
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Check If Recycle bin is empty Or not
API Declarations
cbSize As Long
i64SizeLo As Long
i64SizeHi As Long
i64NumItemsLo As Long
i64NumItemsHi As Long
End Type
"SHQueryRecycleBinA" (ByVal pszRootPath As String, _
pSHQueryRBInfo As SHQUERYRBINFO) As Long
Private Sub Command1_Click()
Dim RB As SHQUERYRBINFO
RB.cbSize = Len(RB)
Call SHQueryRecycleBin("c:\", RB)
MsgBox "There are " & RB.i64NumItemsLo & " in the Recycle bin. The total size of which is " & _
RB.i64SizeLo
End Sub