Question

下面的代码基本上列出了文件夹中的所有文本文件

Private zMailbox As String = "c:\testfolder\"

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Dim finfo As New IO.DirectoryInfo(zMailbox)
    For Each fi In finfo.GetFiles("*.txt")
        ListBox1.Items.Add(fi.FullName) 'full path only
    Next
End Sub

我真正需要做的是使用ReadAllLines方法并使用内容填充ListBox - 这就是我遇到的问题。有什么建议吗？

Answer 1

如果要将文本文件中的每一行添加为ListBox中的单独项目，可以使用ListBox.Items.AddRange方法在一个方法调用中添加所有行，如下所示：

ListBox1.Items.AddRange(File.ReadAllLines(fi.FullName))

AddRange方法允许您通过为其添加要添加的项目数组来一次添加多个项目。由于ReadAllLines返回一个字符串数组，您只需将该数组传递给AddRange方法即可将所有行添加为单个项目。

如果您更容易理解正在发生的事情，您可以将步骤分成多行，如下所示：

Dim lines() As String = File.ReadAllLines(fi.FullName)
ListBox1.Items.AddRange(lines)

读取多个文本文件和列出内容vb.net

1 个答案: