oShell = CREATEOBJECT("Shell.Application") oFolder = oShell.NameSpace("c:\Recycled") oItems = oFolder.Items FOR EACH oItem IN oItems ? oItem.Name NEXT