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!