moveSelToNewFolder is a free Applescript that moves all the selected files to a new folder in the same folder, allowing the user to name the new folder or let it default to "untitled folder".