Mailing List Archive: 49091 messages
  • Home
  • Script library
  • AltME Archive
  • Mailing list
  • Articles Index
  • Site search

[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: 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 ] ]