Set wshshell = CreateObject("Shell.Application") wshshell.Explore 0