VBcoders Guest



Don't have an account yet? Register
 


Forgot Password?



Check If Recycle bin is empty Or not

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

Rate Check If Recycle bin is empty Or not



"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 is empty Or not Comments

No comments have been posted about Check If Recycle bin is empty Or not. Why not be the first to post a comment about Check If Recycle bin is empty Or not.

Post your comment

Subject:
Message:
0/1000 characters