How to automatically save all values in a folder? (IntValue, BoolValue and StringValues)

I would like to save all the values in a folder without them directly in the script. So if a new value is added during the game this should also be saved and loaded

my script:

local DSS = game:GetService("DataStoreService")

local datastore = DSS:GetDataStore("GeneralSaveData", "Players")

function generateDataKey(player)
    local ret = ("uid_" .. player.userId)
    return ret
end

function generateDataTable(player)
    local dataTable = {

        TestValue = game.Workspace.TestFolder.TestValue.Value
        --I thought about doing something like Data = game.Workspace.TestFolder:GetChildren()

    }
    return dataTable
end

function saveDataForPlayer(player)
    local key = generateDataKey(player)
    local data = generateDataTable(player)
    datastore:SetAsync(key, data)
end

function inputDataToPlayer(player, data)
    if data ~= nil then


    game.Workspace.TestFolder.TestValue.Value = data.TestValue

end


end
end

function loadDataForPlayer(player)
    local key = generateDataKey(player)
    local data = datastore:GetAsync(key)
    inputDataToPlayer(player, data)
end

game.Players.PlayerAdded:connect(function(player)
    loadDataForPlayer(player) 
    wait ()
    while true do
        wait (60)
        saveDataForPlayer(player) 
    end
end)

game.Players.PlayerRemoving:connect(saveDataForPlayer) 

Is there a way to do this?