一聚教程网:一个值得你收藏的教程网站

最新下载

热门教程

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

热门栏目