Dim objShell
Set objShell = WScript.CreateObject("Shell.Application")
objShell.FindFiles