AppleScript Обработка файлов в папках рекурсивно

Question

У меня есть корневая папка и в ней есть подпапки.Как правило, это только один уровень, но он может быть глубже.Эти папки будут иметь разные файлы, включая некоторые .rar файлы.Я хочу создать рекурсивную функцию, которая обходит папки, проверяет, является ли файл файлом rar, и открывает / извлекает его.Код работает на первом уровне без каких-либо проблем.Но рекурсивный вызов не работает и обработка ошибок в скрипте Apple ужасна.Вот код, который я сделал до сих пор.

set folderName to "Macintosh HD:Users:Teja:Desktop:Madhu Babu:"

process_folder("", folderName)

on process_folder(root, folderNameToProcess)
    set fileExt to {".rar"}
    tell application "Finder"
        set theItems to every file of folder (root & folderNameToProcess)
        repeat with theFile in theItems
            copy name of theFile as string to FileName
            repeat with ext in fileExt
                if FileName ends with ext then
                    open theFile
                    delete theFile
                end if
            end repeat
        end repeat
        set theFolders to name of folders of folder (root & folderNameToProcess)
        repeat with theFolder in theFolders
            copy theFolder as string to TheFolderName
            display dialog (folderNameToProcess & TheFolderName & ":")
            try
                process_folder(folderNameToProcess, TheFolderName & ":")
            on error errStr number errorNumber
                display dialog errStr
            end try
        end repeat
    end tell
end process_folder

Answer 1

Проблема в том, что вы пытаетесь выполнить рекурсию из блока Tell.Ваш скрипт пытается вызвать "process_folder" в "Finder", который, конечно же, не существует.

Исправление очень простое

предвосхитить ваш рекурсивный вызов process_folder с помощью "my":

my process_folder(folderNameToProcess, TheFolderName & ":")

Это заставит приложение искать обработчик «process_folder» в вашей собственной области.

Answer 2

Вот решение, которое я получил, которое работает ...

--find . -name "*.rar" -type f -delete

set folderToProcess to (choose folder with prompt "Choose Folder::")

tell application "Finder"
    activate
    set fileExt to {".rar"}
    set theTopFolder to (folderToProcess as alias)
    repeat with EachFile in (get every file of folder (folderToProcess as alias))
        try
            copy name of EachFile as string to FileName
            repeat with ext in fileExt
                if FileName ends with ext then
                    set result to (open EachFile)

                    --delete Eachfile
                    msg(result)
                end if
            end repeat
        end try
    end repeat
    --display dialog (theTopFolder as text)
    repeat with EachSubDir in (get every folder of folder theTopFolder)
        try
            --display dialog (EachSubDir as text)
            repeat with EachFile in (get every file of folder (EachSubDir as alias))
                try
                    copy name of EachFile as string to FileName
                    --display dialog FileName
                    --move Eachfile to theTopFolder
                    repeat with ext in fileExt
                        if FileName ends with ext then
                            --display dialog FileName
                            set result to (open EachFile)
                            --delete Eachfile
                            msg(result)
                        end if
                    end repeat
                end try
            end repeat
            --delete folder (EachSubDir as alias)
        end try
    end repeat
end tell

Answer 3

Попробуйте использовать Python для этого. На самом деле нет смысла тратить время на написание Applescript, если есть другие инструменты для выполнения этой работы.

Я рекомендую Script Debugger для отладки Applescript, поскольку в нем есть много инструментов для понимания того, что на самом деле происходит, но рекурсивный обход каталога в Applescript очень медленный, поэтому, если у вас большое дерево, оно будет зависать.

Answer 4

Попробуйте изменить рекурсивный вызов на

try
    my process_folder(folderNameToProcess, TheFolderName & ":")
on error errStr number errorNumber
    display dialog errStr
end try

Обратите внимание на my перед вызовом process_folder.Это заставило меня работать.