nombre lignes fichier txt

[didier51]

Bonjour

Peut on récupérer le nombre de lignes d'un fichier texte sans l'ouvrir?

Merci

Très bonne année 2006 à toutes et à tous

Didier

 

[MichelXld]

bonjour Didier

j'espere que ce lien pourra t'aider

Lien supprimé


sinon une autre possiblité

Const ForReading = 1
Sub nombreLignesFichierTexte()
Dim Fso As Object
Dim Fichier As Object

Set Fso = CreateObject('Scripting.FileSystemObject')
Set Fichier = FspenTextFile _
('C:\\\\\\\\Documents and Settings\\\\\\\\michel\\\\\\\\dossier\\\\\\\\fichier.txt', ForReading)

Fichier.ReadAll
MsgBox 'nombre de lignes : ' & Fichier.Line
Fichier.Close
End Sub


bonne journée
MichelXld

Message édité par: michelxld, à: 31/12/2005 10:40

 

[didier51]

Génial, un grand merci à toi

Très bonne année

Didier