Dim directory As String = "C:\daten"
 
   For Each filepath As String In IO.Directory.GetFiles _
       (directory, "*.txt", IO.SearchOption.TopDirectoryOnly)
 
       Dim fileinfo As New IO.FileInfo(filepath)
 
       Dim filecontent As String = IO.File.ReadAllText(filepath)
 
       Dim filename As String = IO.Path.GetFileName(filepath)
 
       '....................
  Next filepath