Hello all!

Another simple one that has me scracthing my head. I just want to read a
text file, if it reads a certain string, then pop up a message box that
states something. Here is my code, what am I doing wrong?


Dim StreamToDisplay As StreamReader
StreamToDisplay = New StreamReader("e:\switch.txt")
If StreamToDisplay.ReadToEnd.Equals("ECHO is on.") Then
MsgBox("OFF")
Else
MsgBox(StreamToDisplay.ReadToEnd)
End If
StreamToDisplay.Close()
TIA!!
Rudy

The secton ReadToEnd is probably reading after the last row.

Cor

"Rudy" <(E-Mail Removed)> schreef in bericht
news:C84907DC-C821-4F53-966E-(E-Mail Removed)...
> Hello all!
>
> Another simple one that has me scracthing my head. I just want to read a
> text file, if it reads a certain string, then pop up a message box that
> states something. Here is my code, what am I doing wrong?
>
>
> Dim StreamToDisplay As StreamReader
> StreamToDisplay = New StreamReader("e:\switch.txt")
> If StreamToDisplay.ReadToEnd.Equals("ECHO is on.") Then
> MsgBox("OFF")
> Else
> MsgBox(StreamToDisplay.ReadToEnd)
> End If
> StreamToDisplay.Close()
> TIA!!
> Rudy
>

Thanks Cor! I should have had ReadLine instead.
Have a good weekend!

Rudy

"Cor Ligthert [MVP]" wrote:

> The secton ReadToEnd is probably reading after the last row.
>
> Cor
>
> "Rudy" <(E-Mail Removed)> schreef in bericht
> news:C84907DC-C821-4F53-966E-(E-Mail Removed)...
> > Hello all!
> >
> > Another simple one that has me scracthing my head. I just want to read a
> > text file, if it reads a certain string, then pop up a message box that
> > states something. Here is my code, what am I doing wrong?
> >
> >
> > Dim StreamToDisplay As StreamReader
> > StreamToDisplay = New StreamReader("e:\switch.txt")
> > If StreamToDisplay.ReadToEnd.Equals("ECHO is on.") Then
> > MsgBox("OFF")
> > Else
> > MsgBox(StreamToDisplay.ReadToEnd)
> > End If
> > StreamToDisplay.Close()
> > TIA!!
> > Rudy
> >
>
>
>