Folder Creation

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