Applescript：複数のフォルダに新しいフォルダ構造を作成する

Question

このアプレットのコードは、アプレットがクリックされたときに、単一の選択されたフォルダまたは開いたフォルダがFinder内にあるものの中に特定のフォルダ構造を作成します。複数のフォルダが選択されている場合、分割されます。複数のフォルダが選択されている場合にこのスクリプトを動作させる方法はありますか？

property archivesFolder : "Archives" 

property imagesFolder : "Images" 

property proofreadFolder : "Proofreading" 

property proofFolder : "Proofs" 

property sourceFolder : "Source" 

try 
    tell application "Finder" to set theLocation to the selection as alias 
on error 
    tell application "Finder" to set theLocation to (folder of the front window as alias) 
end try 

tell application "Finder" 

    if not (exists folder archivesFolder of theLocation) then 
     make new folder at theLocation with properties {name:archivesFolder} 
    end if 

    if not (exists folder imagesFolder of theLocation) then 
     make new folder at theLocation with properties {name:imagesFolder} 
    end if 

    if not (exists folder proofreadFolder of theLocation) then 
     make new folder at theLocation with properties {name:proofreadFolder} 
    end if 

    if not (exists folder proofFolder of theLocation) then 
     make new folder at theLocation with properties {name:proofFolder} 
    end if 

    if not (exists folder sourceFolder of theLocation) then 
     make new folder at theLocation with properties {name:sourceFolder} 
    end if 

end tell 

Answer 1

これを試してみてください：

property folderNames : {"Archives", "Images", "Proofreading", "Proofs", "Source"} 

tell application "Finder" 
set selectedFolders to selection 
if (count of selectedFolders) > 0 then 
    repeat with aFolder in selectedFolders 
     set theLocation to aFolder as string 
     repeat with newFolder in folderNames 
      try 
       make new folder at theLocation with properties {name:"" & newFolder & ""} 
      end try 
     end repeat 
    end repeat 
else 
    set theLocation to (target of front window) as string 
    repeat with newFolder in folderNames 
     try 
      make new folder at theLocation with properties {name:"" & newFolder & ""} 
     end try 
    end repeat 
end if 
end tell