Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- property newFolderName : "Project Folder"
- property subFolderNames : {"photos", "footage", "thumbnails", "tags"}
- repeat
- display dialog "Enter Project Name:" default answer ""
- set jobNumber to text returned of result
- if result is not "" then exit repeat
- end repeat
- choose folder with prompt "Create job folder '" & jobNumber & "' in this folder:"
- try
- tell application "Finder"
- make new folder at result with properties {name:(jobNumber & " " & newFolderName)}
- set jobFolder to result
- repeat with i from 1 to (count subFolderNames)
- make new folder at jobFolder with properties {name:(jobNumber & " " & (item i of subFolderNames))}
- end repeat
- end tell
- on error errorMsg number errorNum
- display dialog "Error: (" & errorNum & "):" & return & return & errorMsg buttons "Cancel" default button 1
- end try
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement