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