REBOL [ Title: "Interactive FTP Downloader" Date: 26-May-1999 File: %ftpdownload.r Purpose: { Download a group of files from an FTP server, prompting for each file along the way. } library: [ level: 'intermediate platform: none type: none domain: [ftp other-net file-handling] tested-under: none support: none license: none see-also: none ] ] site: ftp://ftp.rebol.com/pub/downloads/ pattern: "*.gz" files: read site foreach file files [ if find/match/any file pattern [ if find/match ask ["Get" file "now? "] "y" [ write/binary file read/binary site/:file ] ] ]