Fonction UpRemoteFileToLocal (ByVal UpType As String, ByVal RemoteUrl As String, ByVal LocalFile As String) Comme Booléen
Dim TmpResult As Boolean = False
Sélectionnez le type de cas
Cas "xmlhttp"
'Avec MSXML2
Dim myXmlHttp comme nouveau MSXML2.XMLHTTP40
monXmlHttp.open("GET", RemoteUrl, False)
monXmlHttp.send()
Dim FS As FileStream = New FileStream (LocalFile, FileMode.CreateNew)
Dim BW comme BinaryWriter = Nouveau BinaryWriter (FS)
BW.Write(myXmlHttp.responseBody)
BW.Fermer()
FS.Fermer()
TmpResult = Vrai
Cas "client web"
'Avec System.Net NameSpace
Atténuer myWebClient en tant que nouveau WebClient
monClientWeb.DownloadFile(RemoteUrl, LocalFile)
TmpResult = Vrai
Fin de la sélection
Fonction de fin