tell application "Finder"
	try
		set theLocation to folder of front window
		set newFolder to make new folder at theLocation with properties {name:"New Folder"}
		...
	end try
end tell