Here's another appleScript solution that's a bit more flexible and maybe a little faster than the other appleScript solutions posted. More flexible in that it tests to see if a folder is already in place before running, which allows you to run the script multiple times and get any new folders.
It may be faster in that it doesn't rely on the Finder as much for manipulating the folder names and paths. (It may not be faster because it does test to see if each folder already exists. It could be sped up by eliminating the check for an existing folder.
set folderToClone to path to documents folder
set cloneDestination to alias "Macintosh HD:Users:edstockly:Desktop:untitled folder:"
set AppleScript's text item delimiters to ""
set cloneDestination to text items 1 thru -2 of (cloneDestination as string) as string
tell application "Finder"
set folderContents to every folder of entire contents of folderToClone
end tell
set finishedPaths to {}
repeat with thisFolder in folderContents
set AppleScript's text item delimiters to folderToClone as string
set myFolder to thisFolder as string
set endFolderPath to (the rest of every text item of myFolder) as string
set AppleScript's text item delimiters to ":"
set endFolderPath to text items 1 thru -2 of endFolderPath
set folderToDupe to {cloneDestination as string}
repeat with x from 1 to (the (count of endFolderPath))
set the end of folderToDupe to item x of endFolderPath
set testFolderPath to folderToDupe as string
if testFolderPath is not in finishedPaths then
try
set thisPathAlias to testFolderPath as alias
on error
set newFolderName to text item -1 of testFolderPath
set newFolderPath to (text items 1 thru -2 of testFolderPath) as string
tell application "Finder"
make new folder at folder newFolderPath with properties {name:newFolderName}
end tell
end try
end if
end repeat
end repeat