'méthode rapide, ne permet  pas l'accès à des fichiers trop volumineux
Public Function CountFileLines(ByVal sPath As String) As Long
    Dim FF As Integer
    
    On Local Error GoTo Err_Handler
    FF = FreeFile
    Open sPath For Input As #FF
        On Local Error Resume Next
        CountFileLines = UBound(Split(Input(LOF(FF),  #FF), vbCrLf)) + 1
    Close #FF
    Exit Function
    
Err_Handler:
    Err.Clear
    CountFileLines = -1
End Function

'méthode un peu  plus lente, permettant l'ouverture de fichiers plus volumineux
Public Function CountFileLines(ByVal sPath As String) As Long
    Dim FF As Integer, sTemp As String
    On Local Error GoTo Err_Handler
    CountFileLines = 0
    FF = FreeFile
    Open sPath For Input As #FF
        Do While Not EOF(FF)
            Line Input #1, sTemp
            CountFileLines = CountFileLines + 1
        Loop
    Close #FF
    Exit Function
    
Err_Handler:
    Err.Clear
    CountFileLines = -1
End Function

    Public Function CountFileLines(ByVal FileName As String) As Integer
        Dim buffer(32 * 1024) As Char
        Dim reader As System.IO.TextReader
        Dim i As Integer
        Dim read As Integer
        Dim total As Integer = 0
        'si le fichier existe
        If System.IO.File.Exists(FileName) Then
            'on ouvre le fichier
            reader = System.IO.File.OpenText(FileName)
            read = reader.Read(buffer, 0, buffer.Length)
            While (read > 0)
                i = 0
                While i < read
                    If buffer(i) = Chr(10) Then total += 1
                    i += 1
                End While
                read = reader.Read(buffer, 0, buffer.Length)
            End While
            If Not buffer(i - 1) = Chr(10) Then total += 1 'facultatif, pour les fichiers avec un dernier retour chariot
            'nettoyage
            Erase buffer
            reader.Close()
            reader.Dispose()
            reader = Nothing
        End If
        Return total
    End Function
'   la fonction CHR venant de VB6, on évite la référence Microsoft.VisualBasic
    Private Function Chr(ByVal CharCode As Integer) As Char
        Return Char.ConvertFromUtf32(CharCode)
    End Function

        static long CountLines(string fileName)
        {
            char[] buffer = new char[32 * 1024]; //lit 32K char à chaque fois
            System.IO.TextReader reader;
            int total = 1; //tout fichier contient au moins une ligne
            int read;
            if (System.IO.File.Exists(fileName))
            {
                reader = System.IO.File.OpenText(fileName);
                while ((read=reader.Read(buffer, 0, buffer.Length)) > 0)
              {
                  for (int i = 0; i < read; i++)
                    {
                        if (buffer[i] == '\n')
                        {
                            total++;
                        }
                    }
                 }
                //nettoyage des variables
                reader.Close();
                reader.Dispose();
                reader = null;
            }
            return total;
        }
//exemple d'utilisation :
         MessageBox.Show(CountLines(@"C:\AVANCE.LOG").ToString());

Function GetNbLineInFile(ByVal Chemin As String, ByVal NomFichier As String) As Long
    Const ForAppending = 8
    Dim fs As Object, File As Object
    If Not Dir(Chemin & NomFichier) = Empty Then
        Set fs = CreateObject("Scripting.FileSystemObject")
        Set File = fs.OpenTextFile(Chemin & NomFichier, ForAppending)
            GetNbLineInFile = File.Line - 1
        File.Close
        Set fs = Nothing
    End If
End Function

function CountFileLines(const FileName: string): integer;
begin
  with TStringList.Create do
  try
    LoadFromFile(FileName);
    result := Count;
  finally
    Free;
  end;
end;