Function UpRemoteFileToLocal(ByVal UpType As String, ByVal RemoteUrl As String, ByVal LocalFile As String) As Boolean
ブール値 = False としての Dim TmpResult
ケースアップタイプを選択してください
ケース「xmlhttp」
'MSXML2の場合
myXmlHttp を新しい MSXML2.XMLHTTP40 として暗くする
myXmlHttp.open("GET", RemoteUrl, False)
myXmlHttp.send()
Dim FS As FileStream = New FileStream(LocalFile, FileMode.CreateNew)
BinaryWriter としての Dim BW = 新しい BinaryWriter(FS)
BW.Write(myXmlHttp.responseBody)
BW.Close()
FS.Close()
TmpResult = True
ケース「ウェブクライアント」
'System.Net 名前空間を使用する場合
myWebClient を新しい WebClient として暗くする
myWebClient.DownloadFile(RemoteUrl, LocalFile)
TmpResult = True
エンドセレクト
終了機能