Function UpRemoteFileToLocal(ByVal UpType As String, ByVal RemoteUrl As String, ByVal LocalFile As String) As Boolean
Dim TmpResult As Boolean = False
選擇案例類型
案例“xmlhttp”
'使用 MSXML2
將 myXmlHttp 調暗為新的 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()
臨時結果 = True
案例“網路客戶端”
'使用 System.Net 命名空間
將 myWebClient 調暗為新的 WebClient
myWebClient.DownloadFile（RemoteUrl，LocalFile）
臨時結果 = True
結束選擇
結束功能