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)
				--raden nedan funkar alltså inte
                duplicate currentSubFolder to POSIX file "/Users/simoneliasson/Dropbox/Fotograf Simon Eliasson AB - JPG"

           end repeat

							
			
        end repeat

		
    end tell
end run