Функция UpRemoteFileToLocal (ByVal UpType как строка, ByVal RemoteUrl как строка, ByVal LocalFile как строка) как логическое значение
Dim TmpResult как логическое значение = False
Выберите Case UpType
Дело "xmlhttp"
'С MSXML2
Уменьшить myXmlHttp как новый MSXML2.XMLHTTP40
myXmlHttp.open("GET", RemoteUrl, False)
myXmlHttp.send()
Dim FS As FileStream = New FileStream(LocalFile, FileMode.CreateNew)
Уменьшить BW как BinaryWriter = Новый BinaryWriter(FS)
BW.Write(myXmlHttp.responseBody)
БВ.Закрыть()
ФС.Закрыть()
ТмпРезультат = Истина
Кейс «веб-клиент»
'С System.Net NameSpace
Уменьшить myWebClient как новый веб-клиент
myWebClient.DownloadFile(RemoteUrl, LocalFile)
ТмпРезультат = Истина
Конец выбора
Конечная функция