oShell = CREATEOBJECT("Shell.Application")
oFolder = oShell.NameSpace("c:\Recycled")

oItems = oFolder.Items
FOR EACH oItem IN oItems
	? oItem.Name
NEXT