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

Dans cet exemple le nombre de ligne contenu dans le fichier monfichier.log est renvoyé dans une boite de dialogue par l’intermédiaire de la variable Compteur.

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

Articles similaires