<code>Dim DirName As String
Dim F As Integer
Dim lRow As Long
Dim lCol As Long
Dim sText As String
 
With MSFlexGrid1
  .Rows = .FixedRows
  lRow = .Rows
 
  DirName = Dir("c:Eigene Dateien*.*", vbNormal)
  While DirName <> ""
    If DirName <> "." And DirName <> ".." Then
      lRow = lRow + 1
      .Rows = lRow
      .Row = lRow
 
      F = FreeFile
      Open "c:Eigene Dateien\" & DirName For Input As #F
      lCol = 0
      While Not Eof(F) And lCol < 5
        Line Input #F, sText
        .Col = lCol: .Text = sText
        lCol = lCol + 1
      Wend
      Close #F
    End If
    DirName = Dir
  Wend
End With</code>