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 displayed name of (container of currentSubFolder)
                set currentSubFolderName to displayed name of currentSubFolder
                set name of currentSubFolder to (theSubFolderName & " " & currentSubFolderName)
				
				-- duplicate currentSubFolder to POSIX file "/Users/simoneliasson/Dropbox/Fotograf Simon Eliasson AB - JPG"
				--duplicate currentSubFolder to "/Users/simoneliasson/Dropbox/Fotograf Simon Eliasson AB - JPG" with replacing

				
           end repeat

							
			
        end repeat

		set theFolders to input
		repeat with currentFolder in theFolders
			set subFolders to folders of currentFolder
			repeat with currentSubFolder in subFolders
        		duplicate currentSubFolder to POSIX file "/Users/simoneliasson/Dropbox/Fotograf Simon Eliasson AB - JPG"
			end repeat
		end repeat
		
    end tell
end run