Try
Dim myWebClient As New WebClient
myWebClient.UploadFile("http://192.168.1.201/2/1.zip", "put", "E:\psp\1\1.zip")
Catch ex As Exception
End Try
方法二
Try
Dim myWebClient As New WebClient
Dim fs As FileStream = New FileStream("E:\psp\电影\rleis.zip", FileMode.Open, FileAccess.Read)
Dim br As BinaryReader = New BinaryReader(fs)
Dim uriString As Uri = New Uri("http://192.168.1.201/zdimp/rleis.zip")
Dim postArray As Byte() = br.ReadBytes(CInt(fs.Length))
Dim postStream As Stream = myWebClient.OpenWrite(uriString, "PUT")
If postStream.CanWrite Then
postStream.Write(postArray, 0, postArray.Length)
End If
postStream.Close()
Catch ex As Exception
MsgBox(ex.ToString.Trim)
End Try
Private Function uploadFile() As Boolean
Try
Me.lblInfo.Text = "正在上传文件: " & strFileName & " ,请稍后..."
Dim DownLaodDelegate As New DownLaodTextDg(AddressOf DownLoadText)
Dim uploadUrl As New System.Uri(strServerPath & strFileName)
Dim hwr As System.Net.HttpWebRequest = System.Net.WebRequest.Create(uploadUrl)
Dim fs As New System.IO.FileStream(strLocalPath, FileMode.Open, FileAccess.Read) '得到本地文件的数据流
Dim totalBytes As Long = fs.Length
Dim percent As Integer = 0
hwr.Timeout = 1000 * 5 * 60 '设置超时值30秒
hwr.Method = "PUT" '传送方式 这里一定要是PUT才行
hwr.UseDefaultCredentials = True
hwr.KeepAlive = True
hwr.ContentLength = totalBytes '设置传送的数据长度
Dim response As System.Net.HttpWebResponse = CType(hwr.GetResponse(), System.Net.HttpWebResponse)
response.Close()
Dim strStatusCode As String = response.StatusCode.ToString.Trim.ToUpper
If strStatusCode = "CREATED" Or strStatusCode = "OK" Then
Return True
End If
Return False
Catch ex As Exception
MsgBox(ex.ToString.Trim, MsgBoxStyle.Exclamation, "系统提示")
Return False
End Try
End Function
1. IIS（internet information server） 具有网页发布www（world wide web http），文件传输ftp（file transfer protocol），邮件传输smtp（simple mail transfer protocol），新闻组nntp（network news transfer...
