season22 发表于 2015-5-27 09:42:30

vb.net winform Ftp上传。。。。方法很多,我用的一种。。。。。

代码

1 Imports System
2 Imports System.IO
3 Imports System.Net
4 Imports System.Text
5 Public Class ftpUpload
6
7   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
8
9         Dim request As FtpWebRequest = DirectCast(WebRequest.Create("http://www.iyunv.com/Believeme/admin/ftp://76.73.62.252/123.xml"), FtpWebRequest)
10         request.Method = WebRequestMethods.Ftp.UploadFile
11
12
13         request.Credentials = New NetworkCredential("3339", "libaoxin") '用户名,密码
14
15         Dim sourceStream As New StreamReader("D:\123.xml") '要上传的文件
16         Dim fileContents As Byte() = Encoding.UTF8.GetBytes(sourceStream.ReadToEnd())
17         sourceStream.Close()
18         request.ContentLength = fileContents.Length
19         Dim requestStream As Stream = request.GetRequestStream()
20         requestStream.Write(fileContents, 0, fileContents.Length)
21         requestStream.Close()
22         Dim response As FtpWebResponse = DirectCast(request.GetResponse(), FtpWebResponse)
23         response.Close()
24   End Sub
25 End Class
26
27
28附:http://msdn.microsoft.com/zh-cn/library/ms229715(VS.80).aspx
29   
页: [1]
查看完整版本: vb.net winform Ftp上传。。。。方法很多,我用的一种。。。。。