[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/bigfile.zip
lfile: %/d/data/bigfiles/bigfile.zip
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