Questo programma scritto in VB.NET Console consente di verificare l'esistenza di un file su internet e in caso positivo di scaricarlo sul computer locale.
E' importante sapere che questo codice non funziona se viene fatto girare sotto web proxy.
Imports System
Imports System.Net
Module Module1
Sub main()
Dim web_source, path_dest As String
web_source = "http://www.aziende-italia.net/web/upload/logo_scheda_web/logo-letizia.jpg"
path_dest = "C:\logo-letizia.jpg"
' creo una richiesta HTTP
Dim myWebRequest As WebRequest = WebRequest.Create(web_source)
' uso il try per evitare errori di: The remote server returned an error: (404) Not Found
Try
' assegno la risposta
Dim myWebResponse As WebResponse = myWebRequest.GetResponse()
' rilascio le risorse del response object.
myWebResponse.Close()
Console.WriteLine("Il file è presente nella pagina web")
Try
' eseguo il download del file dal Web, se già esistente lo sovrascrivo
My.Computer.Network.DownloadFile(web_source, path_dest, "", "", False, 500, True)
Console.WriteLine("File Scaricato Correttamente sul computer locale")
Catch ex As System.IO.IOException
Console.WriteLine("Impossibile Scaricare il file:")
Console.WriteLine(ex.Message)
End Try
Catch ex As System.Net.WebException
Console.WriteLine("File non trovato sul server web:")
Console.WriteLine(ex.Message)
End Try
Console.ReadLine()
End Sub
End Module
Commenti