ASPX保存远程图片到本地的两种方法的函数

时间：2022-06-30 11:29:32 编辑：袖梨来源：一聚教程网

Function UpRemoteFileToLocal(ByVal UpType As String, ByVal RemoteUrl As String, ByVal LocalFile As String) As Boolean
        Dim TmpResult As Boolean = False
        Select Case UpType
       Case "xmlhttp"
           'With MSXML2
           Dim myXmlHttp As New 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()
           TmpResult = True
       Case "webclient"
           'With System.Net NameSpace
           Dim myWebClient As New WebClient
           myWebClient.DownloadFile(RemoteUrl, LocalFile)
           TmpResult = True
        End Select
    End Function

推荐专题

最新下载

热门教程

ASPX保存远程图片到本地的两种方法的函数

相关文章

热门栏目

php教程

asp.net教程

手机开发

css教程

网页制作

办公数码

jsp教程