Funktion UpRemoteFileToLocal(ByVal UpType As String, ByVal RemoteUrl As String, ByVal LocalFile As String) als boolescher Wert
Dimmen Sie TmpResult als Boolean = False
Wählen Sie Case UpType aus
Fall „xmlhttp“
'Mit MSXML2
Dimmen Sie myXmlHttp als neues MSXML2.XMLHTTP40
myXmlHttp.open("GET", RemoteUrl, False)
myXmlHttp.send()
Dim FS As FileStream = New FileStream(LocalFile, FileMode.CreateNew)
Dim BW As BinaryWriter = New BinaryWriter(FS)
BW.Write(myXmlHttp.responseBody)
BW.Close()
FS.Close()
TmpResult = True
Fall „Webclient“
'Mit System.Net NameSpace
Dimmen Sie myWebClient als neuen WebClient
myWebClient.DownloadFile(RemoteUrl, LocalFile)
TmpResult = True
Endauswahl
Funktion beenden