Sorting files by extension in the current folder

Imagine a folder of files of different types, eg PDF and doc
I want to create two new folders inside the original, called "PDF" and "Doc"
I want to select all the PDF files and drop them into the "PDF" folder and the same with the .doc ones.
HOWEVER... this will need to be done on several different folders, so setting a start folder is not really possible.
My structure would be in the form of
FOLDER1
-- PDF folder
-- Doc folder
FOLDER2
-- PDF folder
-- Doc folder
FOLDER3
-- PDF folder
-- Doc folder
FOLDER4
-- PDF folder
-- Doc folder
and so on.
Ideally I would want this to work on the CURRENT folder, triggered when I need to. It would be possible to do this once, renaming the start folder each time I got a new pile of files to work on, but that seems to defeat the object.
I can't see a way of doing this.
I've looked at Automator, but the "move files" feature seems to need an existing folder to put them in, rather than one created in the previous step. I have been told, via the developer of Keyboard Maestro that Perl can do this, but I don't want to have to learn a new language!
Any ideas would be welcome
Thanks in advance
I want to create two new folders inside the original, called "PDF" and "Doc"
I want to select all the PDF files and drop them into the "PDF" folder and the same with the .doc ones.
HOWEVER... this will need to be done on several different folders, so setting a start folder is not really possible.
My structure would be in the form of
FOLDER1
-- PDF folder
-- Doc folder
FOLDER2
-- PDF folder
-- Doc folder
FOLDER3
-- PDF folder
-- Doc folder
FOLDER4
-- PDF folder
-- Doc folder
and so on.
Ideally I would want this to work on the CURRENT folder, triggered when I need to. It would be possible to do this once, renaming the start folder each time I got a new pile of files to work on, but that seems to defeat the object.
I can't see a way of doing this.
I've looked at Automator, but the "move files" feature seems to need an existing folder to put them in, rather than one created in the previous step. I have been told, via the developer of Keyboard Maestro that Perl can do this, but I don't want to have to learn a new language!
Any ideas would be welcome
Thanks in advance