SharePoint
轻轻插一下

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.cnblogs.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 


posted on 2009-09-16 17:09  轻轻插一下  阅读(724)  评论(0编辑  收藏  举报