将文件内容从 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
现在我想添加另一个按钮,使用 StreamWriter
和 WebRequest.GetRequestStream
将 ListBox
的内容上传回 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
要将文件内容读取到 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
现在我想添加另一个按钮,使用 StreamWriter
和 WebRequest.GetRequestStream
将 ListBox
的内容上传回 FTP。
你基本上需要我对
的回答中的代码
How to download file from FTP and upload it again.
虽然可以轻松复制 ListBox
的内容(行),但您可以使用 StreamWriter
:
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