rename-to-parent.applescript

use AppleScript version "2.4" -- Yosemite (10.10) or later
use scripting additions

tell application "Finder"
	-- zet hier het pad naar de juiste map
	set thePath to POSIX path of "Macintosh HD:private:tmp:x"
	
	--
	-- vanaf hier niets veranderen
	-- 
	tell application "System Events"
		set allFolders to folders of folder thePath whose visible is true
	end tell
	
	repeat with j from 1 to the count of allFolders
		tell application "System Events"
			set allFiles to (files of (item j of allFolders) whose visible is true)
		end tell
		
		repeat with i from 1 to the count of allFiles
			set thisFile to item i of allFiles
			
			set newName to (get name of container of thisFile as text) & "_" & name of thisFile
			
			set the name of thisFile to newName as string
		end repeat
	end repeat
end tell