<code>Dim DirName As String
Dim F As Integer
Dim lRow As Long
Dim lCol As Long
Dim sText As String
Dim sLines() As Strring
 
With Me.MSHFlexGrid1
  .Clear
  .Rows = .FixedRows
  lRow = .Rows
 
  DirName = Dir("c:Eigene Dateien*.*", vbNormal)
  While DirName <> ""
    If DirName <> "." And DirName <> ".." Then
      <font color=green>' Prüfen, ob Datei in Frage kommt
      ' ersten 5 Zeilen einlesen</font>
      F = FreeFile
      lCol = 0
      ReDim sLines(5)
      Open "c:Eigene Dateien\" & DirName For Input As #F
      Do Until EOF(F) Or lCol > 5
        lCol = lCol + 1
        Line Input #F, sLines(lCol)
      Loop
      Close #F
 
      If InStr(LCase$(sLines(2)), "hallo") > 0 Then
        <font color=green>' 2. Zeile enthält das Wort Hallo</font>
        lRow = lRow + 1
        .Rows = lRow
        .Row = lRow - 1
        For lCol = 0 To 4
          .Col = lCol
          .Text = sLines(lCol + 1)
        Next
      End If
 
    End If
    DirName = Dir
  Wend
End With</code>