Перебирайте видеофайлы в папке, чтобы получить длину видео

У меня есть следующее, которое возвращает, сколько секунд находится в выбранном видеофайле.

Однако мне был нужен способ просто передать ему папку с фильмом, чтобы он затем перебирал все подкаталоги и находил все типы видеофайлов.

Как только они появятся, я хотел бы указать длину видео в формате «1 час 53 секунды», поскольку «7990 секунд» не слишком полезны.

Спасибо.

set macPath to (choose file) as text
tell application "System Events"
    set ts to time scale of movie file macPath
    set dur to duration of movie file macPath
    set movieTime to dur / ts
end tell