Untitled

on run {input, parameters}
    tell application "Finder"
        set theFolders to input
        repeat with currentFolder in theFolders
            set subFolders to folders of currentFolder
            repeat with currentSubFolder in subFolders
                set theSubFolderName to name of (container of currentSubFolder)
                set currentSubFolderName to name of currentSubFolder
                set newSubFolderName to theSubFolderName & " " & currentSubFolderName
                set targetPath to "/Users/simoneliasson/Dropbox/Fotograf Simon Eliasson AB - JPG/" & newSubFolderName
                move currentSubFolder to folder targetPath
            end repeat
        end repeat
    end tell
end run