[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?
inp: open/binary/direct rfile
out: open/binary/new/direct lfile
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]