<pre>function findArchive archiveName  if archiveName is empty then return empty  toComputer  put liste("Documents") into theDocs  set itemDelimiter to tab  repeat with x = 1 to the number of lines of theDocs    if item 1 of line x of theDocs is archiveName    then return item 2 of line x of theDocs  end repeat  answer "Archive" && archiveName && "est introuvable."  return emptyend findArchive</pre>