读取目录中的所有文件，然后将每个文件的内容添加到列表框中？

Question

我正在尝试做一些看似简单的事情，但是由于我还是VB.NET的新手，因此我需要一些帮助。

我想读取其中包含数百个txt文件的目录。 然后，将文件的内容添加到列表框中，但是每个文件仅一行包含在内。 因此，可以说该程序浏览了该文件夹，并且遇到的第一个文件是info.txt 。 该文件的内容是：

第1行的“ asdasdasdasdasd2312323”，然后第2行的“ 2321321213123213”。如果我尝试将此文件的内容添加到列表框中，则为2行。 我只希望列表框中有1行。

我知道如何循环浏览文件夹并读取其中的所有文件，但是我不知道如何将文件的内容放入列表框。

Answer 1

查看File类，它具有称为ReadAllLines和ReadLines共享方法，它们将共享文件行。 这个例子对两个都适用。

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    For Each f In Directory.GetFiles("C:\Temp\Data") 'put your directory path here
        Try
            ListBox1.Items.Add(File.ReadAllLines(f)(0)) 'Read the first line of each file
        Catch ex As ArgumentNullException
            ListBox1.Items.Add("[NO DATA]")   'If no Data catch Error 
        Catch ex As IndexOutOfRangeException
            ListBox1.Items.Add("[NO DATA]")   'If no Data catch Error
        End Try
    Next
End Sub