• Home
 · 
• Windows API Call/Explanation
 · 
• Check if Recycle Bin Empty?

Check if Recycle Bin Empty?

Check if Recycle Bin Empty?

API Declarations


cbSize As Long
i64SizeLo As Long
i64SizeHi As Long
i64NumItemsLo As Long
i64NumItemsHi As Long
End Type




Rate Check if Recycle Bin Empty?

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

Private Declare Function SHQueryRecycleBin Lib "shell32" Alias _
"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