FileFunc.lua

function script_path()
    local str = debug.getinfo(2, "S").source:sub(2)
    return str:match("(.*/)")
end 

function doesFileExist(fname)
    local results = false
    local filePath = script_path() .. "/" .. fname
    if ( filePath ) then
        local file, errorString = io.open( filePath, "r" )
        if not file then
            print( "File error: " .. errorString )
        else
            print( "File found: " .. fname )
            results = true
            file:close()
        end
    end
    return results
end


function WriteFile(saveData,File)
    local path = script_path() .. "/" .. File
    local file, errorString = io.open( path, "w" )
 
    if not file then
        print( "File error: " .. errorString )
    else
        file:write( saveData )
        io.close( file )
    end
    file = nil
end


function ReadFile(File)
    local path = script_path() .. "/" .. File
    local file, errorString = io.open( path, "r" )
    local contents

    if not file then
        print( "File error: " .. errorString )
    else
        contents = file:read( "*a" )
        io.close( file )
    end
    file = nil
    return contents
end