I am trying to read a text file in throught the serial port
using the communication control that comes with VB3.  I am
using the line

Print #1, frmScan.Comm1.Input;

to print the file to a text file on the c: drive.  The problem
I seem to be having is looping this line to continue printing
the receive buffer to the output file #1.  If I don't loop
it reads the 1024 buffer and then quits.  I have tried looping
till the property comm1.inbuffercount = 0 but then it exits
as soon as the buffer empties which is about after 4
charactors
or 32 bytes.  Has anyone used this control that could send
me a sample code.  The text file will vary in size so I
can not do it a fixed number of times, like with a for loop.

Help please.

Thanks

Dorian Jessick

If you use Chr$(13) as the End Of Line marker, this code will semi-work:

t$ = frm!com.Input
Do
        Print #1, t$
        t$ = frm!com.Input
        DoEvents
Loop While Instr(t$, Chr$(13)) = 0

--
Real programmers never work 9 to 5. If any Real Programmers are
around at 9:30 AM, it's because they were up all night.

http://www.sn.no/~balchen/
ftp://ftp.sn.no/user/balchen/