REBOL [
    Title: "Upload all HTML Files"
    File:  %ftphtml.r
    Date:  26-May-1999
    Purpose: {Upload a group of files to an FTP server.}
    Category: [ftp net file 2] 
]

site: ftp://user:pass@ftp.site.com/www/

pattern: "*.html"

foreach file read %. [
    if find/match/any file pattern [
        print ["Uploading:" site/:file]
        write/binary site/:file read/binary file
    ]
]