XProfan

Source watts on the 15.07.2007 from the MMJ-Quellcodesammlung (Dietmar horn) in The Babyklappe on XProfan.Com stored:
system: windows-wastebasket inquire
of Michael Dell
Declare RecycleInfo#
Struct SHQUERYRBINFO = cbSize&,i64SizeLow&,i64SizeHigh&,i64NumItemsLow&,i64NumItemsHigh&
Dim RecycleInfo#,SHQUERYRBINFO
Def SHEmptyRecycleBin(3)   !SHELL32.DLL,SHEmptyRecycleBinA   %hwnd,lpRootPath$,dwFlags&
Def SHUpdateRecycleBinIcon(0) !SHELL32.DLL,SHUpdateRecycleBinIcon
Def SHQueryRecycleBin(2)   !SHELL32.DLL,SHQueryRecycleBinA   lpRootPath$,RecycleInfo# as SHQUERYRBINFO
RecycleInfo#.cbSize& = SizeOf(RecycleInfo#)
SHQueryRecycleBin(,RecycleInfo#)

Ifnot RecycleInfo#.i64SizeHigh&

    MessageBox((Entries: +Str $(RecycleInfo#.i64NumItemsLow&)+
    Size: +Str $(RecycleInfo#.i64SizeLow&)+ Bytes),in the Trashcan...,48)

Else

    MessageBox(More as 2 GB in the Trashcan.,in the Trashcan...,48)

EndIf

End