Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
 
    End Sub
    Public Function ReadLine(ByVal sFile As String, _
       ByVal nLine As Long) As String
 
        Dim sLines() As String
        Dim oFSO As Object
        Dim oFile As Object
 
        ' Verweis auf das FileSystemObject erstellen
        oFSO = CreateObject("Scripting.FileSystemObject")
 
        ' Existiert die Datei überhaupt?
        If oFSO.FileExists(sFile) Then
 
            ' Datei öffnen
            oFile = oFSO.OpenTextFile(sFile)
 
            ' Alles lesen und in Array zerlegen
            sLines = Split(oFile.ReadAll, vbCrLf)
 
            ' Datei schließen
            oFile.Close()
 
            ReadLine = sLines(nLine - 1)
        End If
    End Function
End Class

Public Function ReadLine(ByVal sFile As String, _
  ByVal nLine As Long) As String
 
  Dim sLines() As String
  Dim oFSO As Object
  Dim oFile As Object
 
  ' Verweis auf das FileSystemObject erstellen
  oFSO = CreateObject("Scripting.FileSystemObject")
 
  ' Existiert die Datei überhaupt?
  If oFSO.FileExists(sFile) Then
 
    ' Datei öffnen
    oFile = oFSO.OpenTextFile(sFile)
 
    ' Alles lesen und in Array zerlegen
    sLines = Split(oFile.ReadAll, vbCrLf)
 
    ' Datei schließen
    oFile.Close()
 
    Return sLines(nLine - 1)
  Else
    Return ""
  End If
End Function

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de

''' <summary>
''' Liest eine bestimmte Zeile aus einer Textdatei
''' </summary>
''' <param name="filename">vollständiger Pfad zur Datei</param>
''' <param name="line">Zeilennummer</param>
''' <returns>Inhalt der Zeile oder bei Fehler einen Leerstring</returns>
Public Function ReadLine(ByVal filename As String, _
  ByVal line As Integer) As String
 
  Try
    Dim lines As String() = My.Computer.FileSystem.ReadAllText( _
      filename, System.Text.Encoding.Default).Split(vbCrLf)
    Return lines(line - 1)
  Catch ex As Exception
    Return ""
  End Try
End Function

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de