○FunctionUpRemoteFile...... 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 |
|小黑屋|最新主题|手机版|微赢网络技术论坛 ( 苏ICP备08020429号 )
GMT+8, 2024-9-29 21:32 , Processed in 0.232341 second(s), 12 queries , Gzip On, MemCache On.
Powered by Discuz! X3.5
© 2001-2023 Discuz! Team.