Como baixar um arquivo da Internet e salvá-lo em um diretório de sua escolha

'Este exemplo mostra como baixar um arquivo e salvá-lo
'em um diretório de sua escolha

Imports System.Net

Module Module1
  Sub Main()
    Dim site As String = "http://www.recomende.com/imagens/"
    Dim arquivo As String = "arquivo.jpg"
    Dim webClient As New WebClient()
    Console.WriteLine("Baixando arquivo ""{0}"" de ""{1}"" ......." _
      + ControlChars.Cr + ControlChars.Cr, arquivo, site)
    webClient.DownloadFile(site & arquivo, "c:\estudos\" & arquivo)
    Console.WriteLine("Arquivo foi baixado com sucesso.")
    
    Console.WriteLine("Pressione uma tecla para sair...")
    Console.ReadKey()
  End Sub
End Module