Help renaming folders recursively

Hi Folks.
I have a folder structure where I need to rename each folder and subfolder to a portion of its existing name.
The sub folders contain various type of PDF, DOC and XLS files that I cannot rename.
The existing folders that I need to rename all have a dot 6 digit numerical extension... like "d:\subdir\folder-name.xxxxxx" or "d:\subdir\folder name.xxxxxx" or "d:\subdir\folder-name.xxxxxx\folder name.xxxxxx\folder name name1.xxxxxx" where xxxxxx = random numerical digits.
 
I need to rename each folder in the structure to just the numerical extension... so I end up with d:\subdir\xxxxxx\xxxxxx\xxxxxx... and so on.
 
Unfortunately I have no experience with any kind of scripting. I did look at the sample scripts on this site. I actually ran one  that recursively listed the folder structure that I need to change (and displayed the results in a window that I had to click OK on) ... but thats as far as my knowledge will get me.
Can/Should this be done using VBScript?   If so... how?
I wasn't able to find a similar scenario/request on this site.

I appreciate any assistance.
Thanks.

Traversing a directory tree can be done via folder recursion. Check the FAQ. Renaming the folders can probably be done like this, according to your rules:

Set re = New RegExp
re.Pattern = "\.[0-9]{6}$"

If re.Test(objFolder.Name) Then objFolder.Name = Right(objFolder.Name, 6)