Uses AppleScript to reveal all files within a hierarchy, using the frontmost folder in the Finder

RevealAllFilesInHierarchy.scpt

tell application "Finder"
	-- get the folder that corresponds to the foremost Finder Window
	set theFolder to the folder of the first window
	-- alternatively, you could choose a folder with the form below
	-- set theFolder to (choose folder)
	-- get justTheFiles by using the every item of ... whose ... construct
	set justTheFiles to every item of the (entire contents of theFolder) whose kind ≠ "Folder"
	-- reveal them opens up new folders of each directory and subdirectory in the hierarchy below the current folder
	reveal justTheFiles
end tell