在遞歸處理中深入鑽取

Question

我有一個深度爲三級的文件夾，每個級別都包含大量文件。我可以在下面的腳本中獲得兩個級別的深度，但是第三級有一些挑戰。有人會介意提供一些關於我應該如何獲得更深層次的指導嗎？使用Python或其他語言是不可接受的，因爲我試圖看看它如何與AppleScript一起工作。

set sourceFolder to (choose folder) 

tell application "Finder" 
    my changeFileNameCase(sourceFolder, "upper") 
    repeat with subFolder in (get every folder of folder sourceFolder) 
     my changeFileNameCase(subFolder as alias, "upper") 

     #This Is No Good 
     repeat with theFolder in (get every folder of folder subFolder) 
      my changeFileNameCase(theFolder, "upper") 
     end repeat 

    end repeat 
end tell 

on changeFileNameCase(targetFolder, caseToSwitchTo) 
    tell application "Finder" 
     set fileList to every file of folder targetFolder 
     repeat with theFile in fileList 
      set oldName to name of theFile 
      set newName to my changeCaseOfText(oldName, caseToSwitchTo) 
      set the name of theFile to newName 
     end repeat 
    end tell 
end changeFileNameCase 

Answer 1

要使處理程序遞歸，您必須獲取文件夾的所有項目並檢查每個項目的類。

• 如果該類folder調用句柄傳遞文件夾
• 如果該類file其重命名爲

---

set sourceFolder to (choose folder) 
changeFileNameCase(sourceFolder, "upper") 

on changeFileNameCase(targetFolder, caseToSwitchTo) 
    tell application "Finder" 
     set theList to every item of targetFolder 
     repeat with i from 1 to count theList 
      set theItem to item i of theList 
      if class of theItem is folder then 
       my changeFileNameCase(theItem, caseToSwitchTo) 
      else 
       set oldName to name of theItem 
       set newName to my changeCaseOfText(oldName, caseToSwitchTo) 
       set name of theItem to newName 
      end if 
     end repeat 
    end tell 
end changeFileNameCase