1 Estrella2 Estrellas3 Estrellas4 Estrellas5 Estrellas (¡Se el primero en puntuarlo!)
Cargando…

Descargar archivos en serie

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 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!


1 Estrella2 Estrellas3 Estrellas4 Estrellas5 Estrellas (¡Se el primero en puntuarlo!)
Cargando…

Leave a Reply