Pete's QBASIC Site

Copy Files Using QB45

2009-08-07T20:01:43-05:00

At least nobody called him an A$$hole. What happened to your self-description anyhow?

Statistics: Posted by burger2227 — Fri Aug 07, 2009 8:01 pm

Copy Files Using QB45

2009-08-07T19:01:51-05:00

The one who ignores and denies the fact he's a dummy, is the real dumb. I accept the fact im dummy, that makes me pretty darn wise.

? what have I created.... ?

You did not create anything, but for sure you did wake up something

Statistics: Posted by bungytheworm — Fri Aug 07, 2009 7:01 pm

Copy Files Using QB45

2009-08-07T10:19:53-05:00

? what have I created.... ?

Statistics: Posted by IanM — Fri Aug 07, 2009 10:19 am

Copy Files Using QB45

2009-07-31T13:24:24-05:00

well most of us are, therefor we're dummies

Statistics: Posted by Seb McClouth — Fri Jul 31, 2009 1:24 pm

Copy Files Using QB45

2009-07-31T07:02:22-05:00

Speak for yourself Seb..

I'm not a dummy, I'm just intellectually challenged.

Statistics: Posted by MystikShadows — Fri Jul 31, 2009 7:02 am

Copy Files Using QB45

2009-07-30T13:55:13-05:00

More to defense: we're all dummies... whahoo!!

Statistics: Posted by Seb McClouth — Thu Jul 30, 2009 1:55 pm

Copy Files Using QB45

2009-07-30T13:32:16-05:00

In your defense, the previous poster was a little late replying. LOL

I'm glad you took my post as a joke and not an insult!

Ted

Statistics: Posted by burger2227 — Thu Jul 30, 2009 1:32 pm

Copy Files Using QB45

2009-07-30T12:33:41-05:00

Add this to your list Moneo:

If you are ahead of me, lead.
If you are behind me, follow.
If you are not doing anything,
Get out of the way.
If you posted something 3 years ago,
who is the dummy for answering it?

You're right, Ted. That makes me a dummy. I went by the date of the last post, and didn't check the date of the original thread.

Well, live and learn.

Regards..... Moneo

Statistics: Posted by moneo — Thu Jul 30, 2009 12:33 pm

Copy Files Using QB45

2009-07-29T14:48:18-05:00

Add this to your list Moneo:

If you are ahead of me, lead.
If you are behind me, follow.
If you are not doing anything,
Get out of the way.
If you posted something 3 years ago,
who is the dummy for answering it?

Statistics: Posted by burger2227 — Wed Jul 29, 2009 2:48 pm

Copy Files Using QB45

2009-07-29T12:02:01-05:00

Hi,

Back in 1990, I was confronted with the need to copy files from within a QB program. I played around with different methods that actually read and wrote the records from within the program. I discovered that there there were several sticky little problems that caused the filles not to be exactly the same. I haven't tried Plasma's version, but I have a feeling that this would have some of these problems.

Finally, I decided to do SHELL with the corresponding COPY command, as IanM suggests, and I have never had a problem since. I like this approach because you hand over the responsibility for the COPY, to DOS. A COPY, just like DOS does, is really what you want, so why try to emulate it.

Regards..... Moneo

Statistics: Posted by moneo — Wed Jul 29, 2009 12:02 pm

Thank You

2009-07-28T05:20:14-05:00

deepest appologies - for not replying earlier, but thank you for your time. (and yes they were just text files)

Statistics: Posted by IanM — Tue Jul 28, 2009 5:20 am

Copy Files Using QB45

2006-11-09T13:17:00-05:00

Code:

DECLARE SUB CopyFile (From$, To$)SUB CopyFile (From$, To$)  ' Open the input file in binary mode  InFile = FREEFILE  OPEN From$ FOR BINARY AS #InFile  ' Open the output file  ' (truncate it if it exists)  OutFile = FREEFILE  OPEN To$ FOR OUTPUT AS #OutFile  CLOSE #OutFile  ' Reopen the output file in binary mode  OPEN To$ FOR BINARY AS #OutFile  ' Copy the file  DO WHILE NOT EOF(InFile)    Buffer$ = INPUT$(4096, 1)    PUT #OutFile, , Buffer$  LOOP  ' Close the files  CLOSE #OutFile  CLOSE #InFileEND SUB

Statistics: Posted by Plasma — Thu Nov 09, 2006 1:17 pm

Copy Files Using QB45

2006-11-09T11:12:33-05:00

are they just plain text files?

Statistics: Posted by sid6.7 — Thu Nov 09, 2006 11:12 am

Copy Files Using QB45

2006-11-09T08:09:21-05:00

Its ok... I think its sorted

I assembled a String$ which was in the format "copy folder1/file1 folder2/file2"

then used SHELL String$

and things seem ok

if there is a better way please let me know.

Statistics: Posted by IanM — Thu Nov 09, 2006 8:09 am

Copy Files Using QB45

2006-11-09T05:40:57-05:00

You will probably think me as stupid as a 286, and I have checked the FAQ section, but how can I copy a file from one part of my C:\ drive to another part of my C:\ drive using Quick basic - can it be done?

I can make files and folders - just not copy files...yet

any help or suggestions would be appreciated.

thank you.

Statistics: Posted by IanM — Thu Nov 09, 2006 5:40 am