Descargar archivos en serie

(¡Se el primero en puntuarlo!)

Loading ...

mayo 21, 2008 Fede Se el primero en decir algo!

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.

En vez de descargarlos uno a uno, entrando a cada una de las páginas, hice una aplicación de consola con Visual Basic de Visual Studio 2008. Creo que es mi primer aplicación usando Framework 3.5 :-D

Aquí el código para copiar y pegar.

Module Module1Sub 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 SubEnd 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!