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