System: Windows-Papierkorb abfragen

'System: Windows-Papierkorb abfragen

Beitrag, 15.07.2007 20:03:

'Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:

'System: Windows-Papierkorb abfragen
'von 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# als SHQUERYRBINFO

RecycleInfo#.cbSize& = SizeOf(RecycleInfo#)
SHQueryRecycleBin("",RecycleInfo#)

IfNot RecycleInfo#.i64SizeHigh&
   MessageBox(("Einträge: "+Str$(RecycleInfo#.i64NumItemsLow&)+"\n\nGrösse: "+Str$(RecycleInfo#.i64SizeLow&)+" Bytes"),"Im Mülleimer...",48)
   Else
   MessageBox("Mehr als 2 GB im Mülleimer.","Im Mülleimer...",48)
EndIf

End

Dies ist die Offlinevariante vom Thread [System: Windows-Papierkorb abfragen].