Imports Microsoft.VisualBasic.FileIO
 
Public Class Form1
 
   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
     System.EventArgs) Handles Button1.Click
      Dim tp As TextFieldParser = My.Computer.FileSystem.OpenTextFieldParser( _
      "d:\test.csv", New String() {";"})
      Dim FirstLine As String() = tp.ReadFields
      Dim LastLine As String()
      Dim tmpLine As String = String.Empty
 
      Dim sw As New Stopwatch
      sw.Start()
 
      While Not tp.EndOfData
         tmpLine = tp.ReadLine
      End While
 
      LastLine = tmpLine.Split(";"c)
 
      tp.Close()
 
      sw.Stop()
      Console.WriteLine(sw.Elapsed.TotalSeconds.ToString)
   End Sub
End Class

Gru?
---------------------------------------------------
Snoopy sagt - vb@rchiv find ich gut...
Schon gesehen? OSMMapViewer V2 Control