function System.listDirectoryExt(path, exts)
--[[ 1.0.1 : 2010-06. By GorristeR. Under GPL3 License.
Retorna una tabla con los ficheros encontrados con las extensiones 
especificadas, nil si no existe la ruta o hay error. Ejemplo:
   ficherosSonido = System.listDirectoryExt("./music", {"mp3", "ogg", "wma", "mid"})
--]]
    local result = nil
    local fileList = System.listDirectory(path)
    local n, j
    if fileList ~= nil then
        result = {}
        for n = 1, table.maxn(fileList) do
            for j = 1, table.maxn(exts) do
                if string.find(string.lower(fileList[n].name), string.lower("%."..exts[j].."$")) then
                    table.insert(result, fileList[n])
                end
            end
        end
    end
    return result
end

function System.listDirectorySort(path, sortBy, desc, exts)
--[[ 1.0.0 : 2010-06. By GorristeR. Under GPL3 License.
Retorna una tabla con los ficheros encontrados en el orden indicado, puede usarse
el parámetro "exts" para indicar extensiones, en cuyo caso se llama a la función
listDirectoryExt() para leer los ficheros. Devuelve nil si no existe la ruta o hay
error. 
Valores de sortBy: 0: SORT_NAME, 1: SORT_SIZE
desc debe ser true si se quiere un orden descendente, y exts debe contener una tabla
con extensiones si se quiere usar listDirectoryExt() en lugar de listDirectory()
Ejemplos:
    -Listado de ficheros ordenados por nombre (orden por defecto):
       sortedFiles = System.listDirectorySort("./mypath")
    -Listado de ficheros por nombre en orden descendente:
       sortedFiles = System.listDirectorySort("./mypath", 0, true)
    -Listado de imágenes ordenadas por tamaño:
       sortedImages = System.listDirectorySort("./mypath", 1, false, {"jpg", "bmp", "gif", "png"})  
--]]
    local result = nil    
    if sortBy == nil then sortBy = 0 end --SORT_NAME
    if desc == nil then desc = false end --Acendent order
    if exts ~= nil then
        fileList = System.listDirectoryExt(path, exts)
    else
        fileList = System.listDirectory(path)
    end
    if fileList ~= nil then
        local function _sort(a, b)
            if sortBy == nil then sortBy = 0 end --SORT_NAME
            if     sortBy == 0 then result = string.lower(a.name) < string.lower(b.name) --SORT_NAME
            elseif sortBy == 1 then result = a.size < b.size --SORT_SIZE
            end
            if desc then result = not result end
            return result
        end -- _sort
        table.sort(fileList, _sort)
        result = fileList
    end
    return result
end