Set wshshell = CreateObject("Shell.Application")

wshshell.findfiles