[Solved] - listing all files on the computer ( fs.list() )

local response = {}
	local currentPath = "/"
	local list = fs.list( currentPath )
	while true do
	  if #list == 0 then
		break
	  end
	  for _, path in ipairs( list ) do
		if not fs.isReadOnly( path ) then
		  print( path )
		  if fs.isDir( path ) then
			currentPath = currentPath .. path
			list = fs.list( currentPath )
		  else
			Util.PutIntoTable( response, currentPath .. path )
		  end
		end
	  end
	  sleep(5)
	end
  return response

local function fsList(start)
  local function yieldFsList(startPath)
	local list = fs.list(startPath)
	for _, file in ipairs(list) do
	  local path = fs.combine(startPath, file)
	  if fs.isDir(path) then
		yieldFsList(path)
	  else
		coroutine.yield(path, file)
	  end
	end
  end

  return coroutine.wrap(function() yieldFsList(start or "/") end)
end

--# we use this function just like we use `pairs` or `ipairs`
--# supply it with a starting path to iterate, however if you
--# don't supply a path it will assume root '/'
local function fsList(start)
  --# this is the recursive function
  local function yieldFsList(startPath)
	--# get a list of all the files and folders in the current directory
	local list = fs.list(startPath)
	--# iterate the list
	for _, file in ipairs(list) do
	  --# resolve its path
	  local path = fs.combine(startPath, file)
	  --# if its a directory run this function on it
	  if fs.isDir(path) then
		yieldFsList(path)
	  --# otherwise return the fullpath to the file and the filename
	  else
		coroutine.yield(path, file)
	  end
	end
  end

  return coroutine.wrap(function() yieldFsList(start or "/") end)
end

for fullpath, filename in fsList('/rom/programs') do
  print(filename, ' : ', fullpath)
end

for fullpath, filename in fsList() do
  print(filename, ' : ', fullpath)
end

local files = {}
for fullpath, filename in fsList() do
  table.insert(files, fullpath)
end

for fullpath, filename in fsList("rom/programs") do
  if filename == "paint" then
	print("Found it! It was in: "..fullpath)
  end
end

local function fsList(start, ignores)
  if type(start) == "table" then
    ignores, start = start, "/"
  end
  local function yieldFsList(startPath, ignorePaths)
    local list = fs.list(startPath)
    for _, file in ipairs(list) do
      local path = fs.combine(startPath, file)
      for _,v in ipairs(ignorePaths) do
        if path == v then
          return
        end
      end
      if fs.isDir(path) then
        yieldFsList(path, ignorePaths)
      else
        coroutine.yield(path, file)
      end
    end
  end

  return coroutine.wrap(function() yieldFsList(start or "/", ignores or {}) end)
end

for fullpath, filename in fsList({"rom"}) do
  if filename == "paint" then
    print("Found it! It was in: "..fullpath)
  end
end