Federico de los Santos

A veces se descubre én Internet una serie de archivos que sería interesante descargarlos todos. Por ejemplo, hoy encontré en una Wiki de Stargate, que podía descargar los Screenplays de los 214 capítulos de Stargate SG-1.



Aquí el código para copiar y pegar.

Module Module1
Sub Main()
  'http://media.dave.tv/sites/stargatesg1/screenplays/s06e06.PDF
  'V lido del s01e01 al e10s09. Los dem s hay que bajarlos a mano.  
Dim Intentos As Integer = 0
  Dim Descargas As Integer = 0
  For Temporada As Integer = 1 To 10
    For Capitulo As Integer = 1 To 22
      Dim URL As String = _
"http://media.dave.tv/sites/stargatesg1/screenplays/"
      Dim Archivo As String = "s" & Right("0" & Temporada.ToString, 2) & "e"
      Archivo &= Right("0" & Capitulo.ToString, 2) & ".PDF"
      Dim Destino As String = My.Application.Info.DirectoryPath
      URL &= Archivo
      Destino &= "\" & Archivo
      Console.WriteLine("Descargando de: " & URL & ".")
      Intentos += 1
      Try
        My.Computer.Network.DownloadFile(URL, Destino)
        Console.WriteLine("Archivo " & Archivo & " descargado.")
        Descargas += 1
      Catch ex As Exception
        Console.WriteLine("No se pudo descargar " & Archivo & ".")
      End Try
    Next
  Next
  Console.WriteLine("Tarea finalizada.")
  Console.WriteLine("Se descargaron " & Descargas.ToString & " de " & _
  Intentos.ToString & " intentos.")End Sub
End Module

Siempre que enuentres una serie de archivos a descargar, hacer algo como esto es básico para tener más tiempo libre para mirar capítulos de tu serie favorita!

Etiquetas: Programacion