<code><font color=green>' alle Dateien nach dem Wort Hallo duchsuchen
' (aber nur in der zweiten Zeile)</font>
Private Sub cmdSearch_Click()
  Dim DirName As String
  Dim F As Integer
  Dim sLine As String
  Dim sPfad As String
 
  <font color=green>' ListBox löschen</font>
  List1.Clear
 
  sPfad = "c:eigene dateien\"
  DirName = Dir(sPfad + "*.*", vbNormal)
  While DirName <> ""
    If DirName <> "." And DirName <> ".." Then
      <font color=green>' Datei öffnen und zweite Zeile auslesen</font>
      F = FreeFile
      Open sPfad + DirName For Input As #F
      If LOF(F) > 0 Then
        Line Input #F, sLine
        If Not EOF(F) Then
          Line Input #F, sLine
          If InStr(LCase$(sLine), "hallo") > 0 Then
            <font color=green>' Wenn Hallo in der 2. Zeile vorhanden
            ' Dateinamen zur ListBox hinzufügen</font>
            List1.AddItem DirName
          End If
        End If
      End If
      Close #F
    End If
    DirName = Dir
  Wend
End Sub</code>