Función UpRemoteFileToLocal (ByVal UpType como cadena, ByVal RemoteUrl como cadena, ByVal LocalFile como cadena) como booleano
Dim TmpResult como booleano = falso
Seleccione tipo de caso arriba
Caso "xmlhttp"
'Con MSXML2
Atenuar myXmlHttp como nuevo MSXML2.XMLHTTP40
myXmlHttp.open("OBTENER", URL Remota, Falso)
myXmlHttp.enviar()
Dim FS As FileStream = Nuevo FileStream(LocalFile, FileMode.CreateNew)
Atenuar BW como BinaryWriter = Nuevo BinaryWriter(FS)
BW.Write(myXmlHttp.responseBody)
BW.Cerrar()
FS.Cerrar()
ResultadoTmp = Verdadero
Caso "cliente web"
'Con el espacio de nombres System.Net
Atenuar myWebClient como nuevo WebClient
myWebClient.DownloadFile (Url remota, archivo local)
ResultadoTmp = Verdadero
Finalizar selección
Función final