🚀 go-pugleaf

In <jhbyne.720872646@unix1.tcd.ie> jhbyne@unix1.tcd.ie (Magnus Byne) writes:

>Hello, 

>Sorry about this, Ive asked this questions before,

>For a program for someone i was writtinG
>I need An effiecent way of copying large files from VB for Windows.

>Does any know how to do this?  Please PLease!


>Brian reply posted a reply to my first request, but I wasnt able to read it,
>as I was too late it it has now 'expired', could someone mail his article
>to me if possible...

>Thanks a million,
>magnus.

>--
>--------------------------------------------------------------------------------
>|  Magnus Byne, Trinity College, Dublin, Ireland. Email: jhbyne@unix1.tcd.ie  |
>|           I used to be indecisive, now I`m not so sure.                     | 
>-------------------------------------------------------------------------------

Here it is:
dim hunk as string*512
dim piece as string*1
open "file1" for binary as #1
open "file2" for binary as #2
l=lof(1)
numhunks=l\512
rest=l-(numhunks*512)
for a=1 to numhunks
	get #1,,hunk
	put #2,,hunk
next a
for a=1 to rest
	get #1,,piece
	put #2,,piece
next a
close #2
close #1

That should do it...I used it for an encoding program and it was fairly fast,
even when I was modifying every byte.

Brian Wheeler


-- 
******************************************************************************
* Brian 'Nautical' Wheeler - These are my opinions, do you hear me?  MINE!
* "Wombats are our friends" - Me
******************************************************************************