Quick,easy download

[snarfblam]

Is there any quick and easy way to download or create a stream for a text file on the internet?

[snarfblam]

Sub Download()

 

Sorry, I should have googled first. Using what I found on the net, I wrote this function in about ten minutes...

   Public Shared Sub Download(ByVal URL As String, ByVal FileName As String)
       Dim Request As HttpWebRequest = CType(HttpWebRequest.Create(URL), HttpWebRequest)
       Dim Response As HttpWebResponse = CType(Request.GetResponse(), HttpWebResponse)
       Dim WebStream As Stream = Response.GetResponseStream()
       Dim InputBuffer() As Byte = New Byte(CInt(Response.ContentLength) - 1) {}
       WebStream.Read(InputBuffer, 0, InputBuffer.Length)
       Dim FileStream As New FileStream(FileName, FileMode.OpenOrCreate, FileAccess.Write)
       FileStream.Write(InputBuffer, 0, InputBuffer.Length)
       WebStream.Close()
       FileStream.Close()
   End Sub