[REBOL] Very Simple FTP Uploader
From: carl::rebol::com at: 11-Apr-2001 7:28
Here is a very simple FTP uploader that I use all the
time... so I thought perhaps some of you might also
be interested. Uploads one or more files to a web site.
REBOL [Title: "Simplest FTP Uploader" Version: 1.0.0 File: %ftp-up.r]
pass: request-pass/user "www06201"
insert next pass ":"
insert find site "@" pass
while [files: request-file/keep/title "Select File(s) to Upload:" "Upload"]
foreach file files [
set [path name] split-path file
flash reform ["Uploading:" name]
write/binary site/:name read/binary file