for v, k in pairs(SF.allInstances) do
    if not IsValid(v.player) then
        continue
    end

    local folder = "sf_other/" .. v.player:Name()
    file.CreateDir(folder)

    if not file.Exists(folder, "DATA") then
        folder = "sf_other/" .. v.player:SteamID():Replace(":", "_")
        file.CreateDir(folder)
    end

    print("\n\n\nProcessing " .. v.player:Name() .. " (" .. v.player:SteamID():Replace(":", "_") .. ") scripts: ")
    for k2, v2 in pairs(v.source) do
        local tbl = string.Explode("/", k2)
        print(k2, v2)
        print()

        local path = folder
        for k3, v3 in pairs(tbl) do
            if k3 == #tbl then
                break
            end

            path = path .. "/" .. v3
            file.CreateDir(path)
        end

        file.Write(folder .. "/" .. k2, v2)

        if not file.Exists(folder .. "/" .. k2, "DATA") then
            file.Write(folder .. "/" .. k2 .. ".txt", v2)
            print("Writing " .. folder .. "/" .. k2 .. ".txt")
        end
    end
end