Compter le nombre de lignes d’un fichier en VBScript

Ce script VBS vous permettra de compter très simplement le nombre de lignes contenu dans un fichier au format texte.

Dans cet exemple je vous propose de compter le nombre de ligne contenu dans un fichier appelé monfichier.log. Le script va compter et afficher le nombre de lignes dans une boite de dialogue Windows.

1) Créez un fichier de script, que vous appelez par exemple comptageligne.vbs et insérez le code suivant :  

Option Explicit
Dim objFSO, strFichier, strData, arrLignes, Compteur
Const ForReading = 1
strFichier = "monfichier.log"
Set objFSO = CreateObject("Scripting.FileSystemObject")
strData = objFSO.OpenTextFile(strFichier,ForReading).ReadAll
arrLignes = Split(strData,vbCrLf)
Compteur = UBound(arrLignes) + 1
Wscript.echo Compteur
Set objFSO = Nothing

Modifiez à votre guise le nom du fichier monfichier.log afin que cela corresponde à votre besoin.

2) Assurez vous que le script et le fichier dont vous souhaitez compter les lignes sont bien placés dans le même répertoire.

3) Exécutez le script comptageligne.vbs en cliquant sur le fichier .vbs