Displaying Text Files by Using a Text Box

[sevenalive]

[deleted]

Edited February 1, 2025 by sevenalive

[dman]

Imports system
Dim Req As WebRequest = WebRequest.Create("http://www.yoursite.com/thefile.txt")
Dim Resp As WebResponse
Try
   Resp = Req.GetResponse
Catch exc As Exception
   MsgBox(exc.Message)
   Exit Sub
End Try
Dim netStream As StreamReader
netStream = New StreamReader(Resp.GetResponseStream)
TextBox1.Text = netStream.ReadToEnd