Compter le nombre de lignes d'un fichier

Soyez le premier à donner votre avis sur cette source.

Snippet vu 23 078 fois - Téléchargée 7 fois


Contenu du snippet

'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


Compatibilité : VB6, VBA

Disponible dans d'autres langages :

A voir également

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.