Quick,easy download

S

snarfblam

Ultimate Contributor
Joined
Jun 10, 2003
Messages
2,097
Location
USA
Is there any quick and easy way to download or create a stream for a text file on the internet?
 
Sub Download()

Sorry, I should have googled first. Using what I found on the net, I wrote this function in about ten minutes...
Visual Basic: 
    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
 
Back
Top