ฟังก์ชั่น UpRemoteFileToLocal (ByVal UpType As String, ByVal RemoteUrl As String, ByVal LocalFile As String) เป็นบูลีน
Dim TmpResult เป็นบูลีน = เท็จ
เลือก Case UpType
กรณี "xmlhttp"
'ด้วย MSXML2
หรี่ myXmlHttp เป็น MSXML2.XMLHTTP40 ใหม่
myXmlHttp.open("GET", RemoteUrl, False)
myXmlHttp.send()
Dim FS As FileStream = FileStream ใหม่ (LocalFile, FileMode.CreateNew)
Dim BW ในฐานะ BinaryWriter = BinaryWriter ใหม่ (FS)
BW.เขียน(myXmlHttp.responseBody)
BW.ปิด()
FS.ปิด()
TmpResult = จริง
กรณี "เว็บไคลเอ็นต์"
'ด้วย System.Net NameSpace
หรี่ myWebClient เป็น WebClient ใหม่
myWebClient.DownloadFile (RemoteUrl, LocalFile)
TmpResult = จริง
สิ้นสุดการเลือก
ฟังก์ชันสิ้นสุด