Descargar varios archivos

Question

Hola.

Como puedo descargar varios archivos usando una lista de Urls obtenida desde un archivo de texto?

archivos.txt
http://www.microsoft.com/archivo1.txt
http://www.microsoft.com/archivo2.txt
http://www.microsoft.com/archivo3.txt
etc.Muchas gracias por su atención.

---

Rafael FM

Answer 1

        'Lista con el nombre de los archivos a descargar
        Dim sr As New StreamReader(TextBox1.Text)
        Dim line As String = sr.ReadLine()
        Dim req As WebRequest
        Dim resp As Stream
        Dim out As BinaryWriter

        Do While line IsNot Nothing
            'Url principal y nombre de archivo
            req = WebRequest.Create(TextBox2.Text & line)
            resp = req.GetResponse().GetResponseStream()
            'Carpeta de destino
            out = New BinaryWriter(New FileStream(pths & line, FileMode.OpenOrCreate))
            Dim buf(4096) As Byte
            Dim k As Int32 = resp.Read(buf, 0, 4096)
            Do While k > 0
                out.Write(buf, 0, k)
                k = resp.Read(buf, 0, 4096)
            Loop
            resp.Close()
            out.Close()
            line = sr.ReadLine()
        Loop
        sr.Close()

Con este programa puedo descargar varios archivos de una vez. El problema que tengo es que tendría que ser desde la misma web. Y necesito descargar archivos de una vez y de distintas web.

---

Rafael FM

Answer 2

Encontré la solución que andaba buscando.

https://social.msdn.microsoft.com/Forums/es-ES/7507e667-0023-4a43-8b35-fec0556a6bd3/leer-textbox-por-lineas?forum=vbes

Gracias.

---

Rafael FM