Fungsi UpRemoteFileToLocal(ByVal UpType Sebagai String, ByVal RemoteUrl Sebagai String, ByVal LocalFile Sebagai String) Sebagai Boolean
Redupkan TmpResult Sebagai Boolean = Salah
Pilih Tipe Kasus Up
Kasus "xmlhttp"
'Dengan MSXML2
Redupkan myXmlHttp Sebagai MSXML2.XMLHTTP40 Baru
myXmlHttp.open("GET", RemoteUrl, Salah)
myXmlHttp.kirim()
Redupkan FS Sebagai FileStream = FileStream Baru (LocalFile, FileMode.CreateNew)
Redupkan BW Sebagai BinaryWriter = BinaryWriter Baru (FS)
BW.Tulis(myXmlHttp.responseBody)
BW.Tutup()
FS.Tutup()
TmpHasil = Benar
Kasus "klien web"
'Dengan System.Net NameSpace
Redupkan myWebClient Sebagai WebClient Baru
myWebClient.DownloadFile(RemoteUrl, File Lokal)
TmpHasil = Benar
Pilihan Akhir
Fungsi Akhir