Vbasic, copying files, Brian Wheeler?

Thread View: alt.lang.basic

2 messages

[T] Back to Threads [V] Tree View [G] Group Articles

2 total messages Started by Magnus Byne Wed, 04 Nov 1992 10:24

#22

Author: Magnus Byne
Date: Wed, 04 Nov 1992 10:24

22 lines
1212 bytes

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.                     | 
-------------------------------------------------------------------------------

Re: Vbasic, copying files, Brian Wheeler?

#24

Author: Brian Wheeler
Date: Wed, 04 Nov 1992 15:54

55 lines
2121 bytes

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
******************************************************************************

Thread Navigation

This is a paginated view of messages in the thread with full content displayed inline.

Messages are displayed in chronological order, with the original post highlighted in green.

Use pagination controls to navigate through all messages in large threads.

Back to All Threads