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 MS***2.XMLHTTP40
my***Http.open("GET", RemoteUrl, False)
my***Http.send()
Dim FS As FileStream = New FileStream(LocalFile, Fi***ode.CreateNew)
Dim BW As BinaryWriter = New BinaryWriter(FS)
BW.Write(my***Http.responseBody)
BW.Close()
FS.Close()
TmpResult = True
Case "webclient"
'With Sy***m.Net NameSpace
Dim myWebClient As New WebClient
my***Client.DownloadFile(RemoteUrl, LocalFile)
TmpResult = True
End Select
End Function
上一篇: ASP.NET设计网络硬盘之删除文件夹