Program Compression

local tArg = {...}--folder,path,shortcut
local Name = folder
local Image = "n"
local Author = "unknown"
local list = fs.list(tArg[1])
if tArg[3] ~= nil then
    local Short = fs.open(tArg[3],"r")
    Name = Short.readLine()
    local B = Short.readLine()
    Image = Short.readLine()
    Author = "unknown"
    Short.close()
end
local file = fs.open(tArg[2]..".cff","w")
local Content
file.writeLine("filedata")
file.writeLine("name = "..Name)
file.writeLine("image = "..Image)
file.writeLine("author = "..Author)
file.writeLine("compressedData")
for i = 1, #list do
    local Pro = fs.open(list[i],"r")
    file.writeLine("file = "..List[i])
    repeat
        Content = Pro.readLine()
        if Content ~= nil then file.writeLine(Content) end
    until Content == nil
    Pro.close()
end
file.close()