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

1 commentaire sur “Compter le nombre de lignes d’un fichier en VBScript”

  1. Merci beaucoup pour ce petit script court et très utile !
    Je cherchai depuis plusieurs jours sur le net.
    Ou bien j’ai trouvé un script qui ne fonctionnait pas ou bien un autre qui me rajoutait des entrées dans mon fichier texte !

    Votre scipt fonctionne et de plus laisse le fichier tel quel.

Laisser un commentaire