[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.
0.5KB.
-Carl
REBOL [Title: "Simplest FTP Uploader" Version: 1.0.0 File: %ftp-up.r]
site: ftp://@www.rebol.com/www/view
system/schemes/ftp/passive: on
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
unview
]
]
