• Home
 · 
• Windows System Services
 · 
• Check If Recycle bin is empty Or not

Check If Recycle bin is empty Or not

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



Rate Check If Recycle bin is empty Or not

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

"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