Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Dim list As New List(Of String)(IO.File.ReadAllLines(Pfad))
        For Each zeile As String In List
            MessageBox.Show(zeile)
        Next
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button2.Click
        Dim flist As New List(Of String)(IO.Directory.GetFiles(Pfad))
        Dim s As String = String.Empty
        For Each zeile As String In flist
            s &= zeile & Environment.NewLine
        Next
        MessageBox.Show(s)
    End Sub
End Class