none
Descargar varios archivos RRS feed

  • Pregunta

  • 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

    lunes, 22 de enero de 2018 11:58

Respuestas

Todas las respuestas

  •         '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

    • Propuesto como respuesta Pablo Rubio lunes, 22 de enero de 2018 15:36
    • Votado como útil Pablo Rubio lunes, 22 de enero de 2018 15:36
    • Propuesto como respuesta Pablo Rubio martes, 23 de enero de 2018 16:27
    lunes, 22 de enero de 2018 13:03
  • martes, 23 de enero de 2018 9:41