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

[REBOL] Re: FTP large files (Answering my own question)

From: doug:vos:eds at: 5-Apr-2002 16:43

Actually - this is really crazy... Can you get this code to work? rfile: ftp://bigserver/ lfile: %/d/data/bigfiles/ inp: open/binary/direct rfile out: open/binary/new/direct lfile total: 0 buf-size: 200'000'000 ; change this to any size you want buffer: make binary! buf-size + 2 while [not zero? size: read-io inp buffer buf-size][ write-io out buffer size total: total + size print ["transferred:" total] ] close inp close out