将文件内容从 ListBox 上传到 FTP

Upload file contents from ListBox to FTP

要将文件内容读取到 ListBox,我使用了上一个问题
中的 DownloadFile 方法

Dim request As FtpWebRequest = 
    WebRequest.Create("ftp://example.com/path/Ann.txt")
request.Method = WebRequestMethods.Ftp.DownloadFile
request.Credentials = New NetworkCredential("username", "password")

Using response As FtpWebResponse = request.GetResponse(),
      stream As Stream = response.GetResponseStream(),
      reader As StreamReader = New StreamReader(stream)
    While Not reader.EndOfStream
        ListBox1.Items.Add(reader.ReadLine())
    End While
End Using

现在我想添加另一个按钮,使用 StreamWriterWebRequest.GetRequestStreamListBox 的内容上传回 FTP。

你基本上需要我对
的回答中的代码 How to download file from FTP and upload it again.


虽然可以轻松复制 ListBox 的内容(行),但您可以使用 StreamWriter:

将其稍微修改为 line-by-line
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    Dim request As FtpWebRequest =
        WebRequest.Create("ftp://example.com/path/Ann.txt")
    request.Method = WebRequestMethods.Ftp.UploadFile
    request.Credentials = New NetworkCredential("username", "password")
    request.UseBinary = False

    Using stream As Stream = request.GetRequestStream(),
          writer As StreamWriter = New StreamWriter(stream)
        For index As Integer = 0 To ListBox1.Items.Count - 1
            writer.WriteLine(ListBox1.Items(index))
        Next
    End Using
End Sub