Função UpRemoteFileToLocal (ByVal UpType como string, ByVal RemoteUrl como string, ByVal LocalFile como string) como booleano
Dim TmpResult As Boolean = False
Selecione o tipo de caso
Caso "xmlhttp"
'Com MSXML2
Dim myXmlHttp como novo MSXML2.XMLHTTP40
myXmlHttp.open("GET", RemoteUrl, Falso)
meuXmlHttp.send()
Dim FS As FileStream = Novo FileStream (LocalFile, FileMode.CreateNew)
Dim BW como BinaryWriter = Novo BinaryWriter (FS)
BW.Write(meuXmlHttp.responseBody)
BW.Fechar()
FS.Fechar()
ResultadoTmp = Verdadeiro
Caso "webclient"
'Com System.Net NameSpace
Dim myWebClient como novo WebClient
myWebClient.DownloadFile(RemoteUrl, LocalFile)
ResultadoTmp = Verdadeiro
Finalizar seleção
Função final