2010-10-09 39 views
1

我有一個根文件夾,其中有子文件夾。它通常只有一個層次,但可以更深一層。這些文件夾將有不同的文件,包括一些.rar文件。我想創建一個遍歷文件夾的遞歸函數,檢查文件是否是rar文件並打開/解壓縮它。代碼正在努力解決任何問題。但遞歸調用不起作用,蘋果腳本的錯誤處理非常糟糕。這是我迄今爲止所做的代碼。AppleScript遞歸處理文件夾中的文件

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 

回答

0

嘗試process_folder呼叫之前更改遞歸調用

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

注意my。這使它對我有用。

0

這是我得到的解決方案,它是工作...

--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 
0

嘗試使用Python這一點。如果有任何其他工具可以完成這項工作,那麼真的沒有理由浪費時間編寫Applescript。

我推薦使用腳本調試器來調試Applescript,因爲它有很多工具可以理解實際發生的事情,但在Applescript中遞歸遍歷一個目錄非常緩慢,所以如果你有一棵大樹,它會停滯不前。

4

問題是,你試圖從一個tell塊內進行遞歸。你的腳本試圖調用「Finder」中的「process_folder」,這當然不存在。

修復的方法是非常簡單的

預先考慮您的遞歸調用一起process_folder「我」:

my process_folder(folderNameToProcess, TheFolderName & ":") 

這將導致應用程序尋找在你自己的範圍「process_folder」處理程序。

相關問題