REBOL []

fixNumber: func [n][
	either n < 10 [
		return join "0" n
	][
		return n
	]
]

img: read/binary http://tv.orf.at/img/orf1.jpg

date: now
time: date/time

month: fixNumber date/month
day: fixNumber date/day
hour: fixNumber time/hour
min: fixNumber time/minute
sec: fixNumber time/second

fname: rejoin ["orf1/" date/year month day hour min sec ".jpg"]

write/binary to-file fname img