将带有 FTP 目录列表的 StreamReader 内容添加到 VB.NET 中的列表框？

Question

这是我到目前为止的代码，

Dim listRequest As FtpWebRequest = WebRequest.Create("ftp://ftpserver.com/folder/")
listRequest.Credentials = New NetworkCredential(ftp_user, ftp_pass)
listRequest.Method = WebRequestMethods.Ftp.ListDirectory
Dim listResponse As FtpWebResponse = listRequest.GetResponse()
Dim reader As StreamReader = New StreamReader(listResponse.GetResponseStream())
ListBox1.Items.AddRange(reader.ReadToEnd())
MessageBox.Show(reader.ReadToEnd())

我对如何将 reader.ReadToEnd 的内容放入 ListBox 中感到非常困惑。如果有人可以帮助我解决这个问题，我将不胜感激。

Answer 1

使用 逐行读取流StreamReader.ReadLine

ListBox1.BeginUpdate()
Try
    Dim line As String
    While True
        line = reader.ReadLine()
        If line IsNot Nothing Then
            ListBox1.Items.Add(line)
        Else
            Exit While
        End If
    End While
Finally
    ListBox1.EndUpdate()
End Try

---

如果处理大量文件时的性能不是问题，以下低效但简短的代码也可以实现相同的效果：

ListBox1.Items.AddRange(
    reader.ReadToEnd().Split(
        New String() {vbCrLf}, StringSplitOptions.RemoveEmptyEntries))

---

请注意，您应该在后台线程上执行网络操作，但是这是一个单独的 问题。