REBOL [
	Title: "Reset Red Icon Dates"
	Version: 1.0.0
	Type: 'link-app
	Author: "Carl Sassenrath"
]

get-link 'file-reg func [data] [
	foreach [file info] data [
		if all [
			exists? link-root/:file
			info/3 = size? link-root/:file
			info/4 = checksum read/binary link-root/:file
		][
			print ["Updating:" file]
			set-modes link-root/:file [modification-date: info/5]
		]
	]
]

alert "Finished updating"