New Folder From Selection (Service that works with 1+ files instead of 2+)

New Folder From Selection.applescript

on run {input, parameters}
  
	tell application "Finder"
		set thePath to first item of input
		
		set {dispName, nameExt, isHidden} to the {displayed name, name extension, extension hidden} of thePath
		
		if isHidden or nameExt is equal to "" then
			dispName
		else
			(characters 1 through (-2 - (count of nameExt)) of dispName) as text
		end if
		
		set theNewFoldersName to result
		set ParentFolder to container of thePath
		set theNewFolder to (make new folder at ParentFolder with properties {name:theNewFoldersName})
		
		repeat with aFIle in input #For each file in input 
			move aFIle to theNewFolder
		end repeat
	end tell
end run