Script/Automator Get Filenames in Folder and Move Each File into Folder based on Filename?

Question

I have searched for an answer to this and I have searched through multiple file renaming apps on the app store too but alas I cannot find anything that does what I want so I ended up looking into Automator as my saviour but I am a total NOOB.
What I want to do is point automator to a folder of my choosing
Automator then takes each file in that folder and creates a folder with the same name as the file and then move the file into that subfolder.
Sounds easy enough eh
I'm totally stumped, anyone have any guidance ???

Answer 1

This is a PITA to do in automator - automator does not handle loops the way it should - but in applescript it looks like so (open this in the applescript editor, select the file you want to run it on in the Finder, then run the script):
tell application "Finder"
          set mainFolders to the selection
  -- selection returns as a list, so even if there's only one folder a loop is used
          repeat with thisFolder in mainFolders
  --get the folder's contents
                    set containedItems to every item of thisFolder
                    repeat with thisItem in containedItems
  -- get name of file, add 'ƒ' to avoid name conflicts
                              set newFolderName to (displayed name of thisItem) & " ƒ"
  --make folder, move item
                              set newFolder to make new folder at thisFolder with properties {name:newFolderName}
  move thisItem to newFolder
                    end repeat
          end repeat
end tell