함수 UpRemoteFileToLocal(ByVal UpType은 문자열로, ByVal RemoteUrl은 문자열로, ByVal LocalFile은 문자열) As Boolean
Dim TmpResult As Boolean = False
케이스 업 유형 선택
사례 "xmlhttp"
'MSXML2를 사용하면
myXmlHttp를 새로운 MSXML2.XMLHTTP40으로 흐리게 합니다.
myXmlHttp.open("GET", RemoteUrl, False)
myXmlHttp.send()
Dim FS As FileStream = 새 FileStream(LocalFile, FileMode.CreateNew)
BinaryWriter로 희미한 BW = 새 BinaryWriter(FS)
BW.Write(myXmlHttp.responseBody)
BW.닫기()
FS.닫기()
TmpResult = 참
사례 "웹클라이언트"
'System.Net 네임스페이스 사용
myWebClient를 새 WebClient로 흐리게 설정
myWebClient.DownloadFile(RemoteUrl, LocalFile)
TmpResult = 참
선택 종료
기능 종료