Perhaps you want to upload only the JPEG files from that directory. Check the file names using find as was shown in the previous section:

foreach file read %thefiles/ [
   if find file ".jpg" [
      write/binary site/:file read/binary file
   ]
]

To upload all the GIF and JPEG files you can write:

foreach file read %thefiles/ [
   if any [
      find file ".jpg"
      find file ".gif"
   ] [
      write/binary site/:file read/binary file
   ]
]

Now, let's say you want to upload only the files that have changed in the last two days:

date: now - 2
foreach file read %thefiles/ [
   if (modified? file) > date [
      write/binary site/:file read/binary file
   ]
]

The do function downloads script and runs it. To run it with FTP you can write:

do [link|ftp://www.rebol.com/pub/gel.r|ftp://www.rebol.com/pub/gel.r]

You now have a better idea of how REBOL "scripts the Internet". As a final example, we combine the image button with with the do example.

view layout [
   backcolor white
   image [link|http://www.rebol.com/graphics/link.jpg|http://www.rebol.co...ics/link.jpg] [
      do [link|http://www.reboltech.com/library/scripts/rim.r|http://www.reboltec...cripts/rim.r]
   ]
]