Enumerate recycle bin items

[Gintaras]

Macro enumerate Recycle Bin

Code:

Copy      Help

out
IShellFolder sfD sfRB
ITEMIDLIST* pidlRB pidl
SHGetDesktopFolder(&sfD)
SHGetSpecialFolderLocation(0 CSIDL_BITBUCKET &pidlRB)
sfD.BindToObject(pidlRB 0 IID_IShellFolder &sfRB)
CoTaskMemFree pidlRB
IEnumIDList en
sfRB.EnumObjects(0 SHCONTF_FOLDERS|SHCONTF_NONFOLDERS|SHCONTF_INCLUDEHIDDEN &en)
rep
,en.Next(1 &pidl &_i); if(_hresult) break
,STRRET sr; sfRB.GetDisplayNameOf(pidl 0 &sr)
,word* w; StrRetToStrW(&sr pidl &w)
,str s.ansi(w)
,CoTaskMemFree w
,CoTaskMemFree pidl
,out s

http://www.codeproject.com/Articles/278 ... ecycle-Bin