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

Question

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

我想读一个包含几百个txt文件的目录。然后，将文件的内容添加到列表框中，但每个文件都包含1行。所以我们假设该程序浏览文件夹，它遇到的第一个文件是 info.txt 。该文件的内容是：

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

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

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