Set obj = CreateObject("Shell.Application") Set objFolder = obj.NameSpace( &h1a ) obj.Explore(objFolder.Self.Path&"\Katamari\NPear\2.0.0.0") Set obj = Nothing