' Controls: 1 * Textbox mit MultiLine = True, 1 * Combobox 
' 1 * FileListBox, 1 * DirListBox
 
Private Sub Form_Load()
  Dim i&
  Dir1.Visible = False
  Dir1.Path = "C:\NC-Files" ' dein Ordner
  File1.Visible = False
  File1.Pattern = "*.txt"
  Combo1.Clear
  For i = 0 To File1.ListCount - 1
    Combo1.AddItem Dir1.List(i)
  Next i
End Sub
 
Private Sub Combo1_Click()
  Dim i&, T$, Out$, Lst$()
  If Trim$(Combo1.Text) = "" Then Exit Sub
  File1.Path = Combo1.Text
  Out = ""
  For i = 0 To File1.ListCount - 1
    Open File1.Path & "\" & File1.List(i) For Input As #1
      T = Input(LOF(1), #1)
    Close #1
    Lst = Split(T, vbCrLf)
    If UBound(Lst) >= 1 Then
      Out = Out & Lst(1)
      If i < File1.ListCount - 1 Then Out = Out & vbCrLf
    End If
  Next i
  Text1.Text = Out
End Sub

Gruss,

Zardoz