Set obj = CreateObject("Shell.Application") Set objFolder = obj.NameSpace( &h09 ) obj.Explore(objFolder.Self.Path) Set obj = Nothing