[REBOL] Re: How to copy file ?
From: g:santilli:tiscalinet:it at: 13-Oct-2003 11:41
Hi Andreas,
On Saturday, October 11, 2003, 2:03:57 PM, you wrote:
AB> the problem with copying files that way, is that it doesn't seem to
AB> really scale. i.e. it seems to be impossible to copy a 600mb file
AB> (rebol crashes, at least on win32 the last time i tried).
Did you try:
file-copy: func [dest src /local data] [
dest: open/binary/direct/write/new dest
src: open/binary/direct/read src
while [data: copy/part src 1048576] [
insert dest data
]
close dest
close src
]
(not tested, but should work as I'm doing something very similar
in file-sync.r).
Regards,
Gabriele.
--
Gabriele Santilli <[g--santilli--tiscalinet--it]> -- REBOL Programmer
Amiga Group Italia sez. L'Aquila --- SOON: http://www.rebol.it/