Check if Recycle Bin Empty?

by www.itmodule.com (4 Submissions)
Category: Windows API Call/Explanation
Compatability: Visual Basic 5.0
Difficulty: Unknown Difficulty
Originally Published: Sun 7^th September 2003
Date Added: Mon 8^th February 2021
Rating: (1 Votes)

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?



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

Download this snippet Add to My Saved Code

Check if Recycle Bin Empty? Comments

No comments have been posted about Check if Recycle Bin Empty?. Why not be the first to post a comment about Check if Recycle Bin Empty?.

Check if Recycle Bin Empty?

Check if Recycle Bin Empty? Comments

Post your comment

Difficulty