set ProjectTitle to text returned of (display dialog "Please enter Project Title:" default answer "New Project")
set loc to choose folder "Choose Folder Location"

tell application "Finder"
	set projFolder to make new folder at loc with properties {name:ProjectTitle}
	set RAW to make new folder at projFolder with properties {name:"RAW"}
	make new folder at RAW with properties {name:"iPhone"}
	make new folder at RAW with properties {name:"GoPro"}
	make new folder at RAW with properties {name:"Nikon"}
	set LIVEWORKS to make new folder at projFolder with properties {name:"LIVEWORKS"}
	make new folder at LIVEWORKS with properties {name:"AE"}
	make new folder at LIVEWORKS with properties {name:"EXPORTS"}
	make new folder at LIVEWORKS with properties {name:"GFX"}
	make new folder at LIVEWORKS with properties {name:"MX"}
	make new folder at LIVEWORKS with properties {name:"Project"}
	make new folder at LIVEWORKS with properties {name:"SFX"}
end tell

open projFolder