Applescript：在多个文件夹中创建新的文件夹结构

Question

这个applet代码在单个选定文件夹内创建特定文件夹结构，或者在单击该小程序时在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