zoukankan      html  css  js  c++  java
  • 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 


    提示

           如果您觉得本篇文章对您有用请评论。

  • 相关阅读:
    Delphi播放铃声
    小技巧
    Delphi线程中使用waitfor返回值
    window安装、启动consul
    kali2020-bash: openvas-setup:未找到命令 ,解决办法
    zookeeper 客户端
    redis 集群
    activeMQ
    Shiro
    Eclipse Java注释模板设置详解
  • 原文地址:https://www.cnblogs.com/Believeme/p/1567954.html
Copyright © 2011-2022 走看看