Public Function GetFileDescr(ByVal sFile As String) As String
  Dim F As Integer
  Dim sLine As String
  Dim sInfo As String
  Dim bResult As Boolean
 
  ' LOG-Datei mit der Info- und Beschreibung öffnen
  F = FreeFile
  Open "DeineDatei.log" For Input As #F
  While Not Eof(F) And Not bResult
    ' Zeile einlesen
    Line Input #F, sLine
    ' steht in der Zeile der gesuchte Dateiname mit # voranstehend?
    If sLine = "#" & sFile Then
      ' jetzt Info-Zeilen auslesen bis eine Leerzeile kommt oder Dateiende 
      ' erreicht
      While Not Eof(F) And Not bResult
        Line Input #F, sLine
        If Len(sLine) = 0 Then 
          bResult = True
        Else
          If Len(sInfo) > 0 Then sInfo = sInfo & vbCrLf
          sInfo = sInfo & sLine
        End If
      Wend
      bResult = True
    End If
  Wend
  Close #F
 
  GetFileDescr = sInfo
End Function

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de