Shell script para ler o arquivo de texto, localizar cada item no arquivo de texto e mover os itens para uma nova pasta

Necessário ao tentar encontrar imagens ausentes em um site. Usei uma exportação xml para listar todas as imagens usadas no site, coloquei isso em um arquivo de texto, procurei na pasta de mídia e movi o que precisava para uma nova pasta. Muito útil, pois havia mais de 1000 imagens. Um pouco estranho de postar, mas eu odiaria perder esse código ou reescrevê-lo. Muito mais fácil de escrever do que tentar construir um processo de automação.

set newFolder to POSIX path of (path to desktop as text) & "Found Photos"
do shell script "mkdir -p " & quoted form of newFolder
set filePaths to paragraphs of (read (choose file with prompt "Select file list") as «class utf8»)
set fileFolder to POSIX path of (choose folder with prompt "Select folder containing files")

set foundFiles to {}
repeat with fileName in filePaths
    set fileName to (contents of fileName)
    set xxx to do shell script "find " & quoted form of fileFolder & " -name " & quoted form of fileName
    if xxx ≠ "" then
        tell application "System Events" to move file xxx to newFolder
        set end of foundFiles to fileName & return
    end if
end repeat

set foundFiles to (foundFiles as text)
do shell script "echo " & quoted form of foundFiles & " > " & quoted form of POSIX path of ((path to desktop as text) & "FoundFiles.txt")