XProfan

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&)+
    Dimensione: +Str$(RecycleInfo#.i64SizeLow&)+ Bytes),Im Pattumiera...,48)

Else

    MessageBox(Di più als 2 GB im Pattumiera.,Im Pattumiera...,48)

EndIf

End