Explorer V1

local ScreenGui = Instance.new("ScreenGui",owner.PlayerGui)
ScreenGui.Name = "Explorer"

local Frame = Instance.new("Frame",ScreenGui)
Frame.Size = UDim2.new(0.3,0,0.8,0)
Frame.BackgroundColor3 = Color3.new(0.5,0.5,0.5)
Frame.Active = true
Frame.Selectable = true
Frame.Draggable = true

local TextLabel = Instance.new("TextLabel",Frame)
TextLabel.Text = "Explorer V1"
TextLabel.Size = UDim2.new(1,0,0.1,0)
TextLabel.BackgroundTransparency = 1
TextLabel.TextScaled = true

local ScrollingFrame = Instance.new("ScrollingFrame",Frame)
ScrollingFrame.Position = UDim2.new(0,0,0.1,0)
ScrollingFrame.Size = UDim2.new(1,0,0.9,0)
ScrollingFrame.CanvasSize = UDim2.new(1,0,0,0)
ScrollingFrame.BackgroundColor3 = Color3.new(1,1,1)

added = 0
function Add(Object,nr)
    ScrollingFrame.CanvasSize = ScrollingFrame.CanvasSize + UDim2.new(0,0,0.05,0)

    local OP = Object.Parent
    local ON = Object.Name

    local TextButton = Instance.new("TextButton",ScrollingFrame)
    TextButton.Text = ON
    TextButton.Position = UDim2.new(0,0,added,0)
    TextButton.Size = UDim2.new(1,0,0.05,0)
    TextButton.BackgroundColor3 = Color3.new(0.9,0.9,0.9)
    TextButton.MouseButton1Click:Connect(function()
        if OP:FindFirstChild(ON) then
            Open(Object)
        end
    end)

    if nr then
        local TextButton2 = Instance.new("TextButton",TextButton)
        TextButton2.Text = "Remove"
        TextButton2.Position = UDim2.new(1-0.3,0,0,0)
        TextButton2.Size = UDim2.new(0.3,0,1,0)
        TextButton2.BackgroundColor3 = Color3.new(0.9,0.9,0.9)
        TextButton2.MouseButton1Click:Connect(function()
            if OP:FindFirstChild(ON) then
                Object:Remove()
                Open(OP)
            else
                Open(OP)
            end
        end)
    end

    added = added + 0.05
end
function Open(Object)
    ScrollingFrame.CanvasSize = UDim2.new(1,0,0,0)
    added = 0
    for i,v in pairs(ScrollingFrame:GetChildren()) do
        v:Remove()
    end
    for i,v in pairs(Object:GetChildren()) do
            Add(v,true)
    end
    Add(workspace,false)
end

Open(workspace,false)