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

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

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

Обратите внимание на my до 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, если есть какие-то другие инструменты для выполнения этой работы.

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

Answer 4

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

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

снабдите ваш рекурсивный вызов process_folder с «моим»:

my process_folder(folderNameToProcess, TheFolderName & ":") 

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