nombre lignes fichier txt

didier51 · 31 Décembre 2005

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 · 31 Décembre 2005

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 = Fs😵penTextFile _
('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 · 31 Décembre 2005

Génial, un grand merci à toi

Très bonne année

Didier

nombre lignes fichier txt

didier51

Guest

MichelXld

XLDnaute Barbatruc

didier51

Guest

Discussions similaires

nombre lignes fichier txt

didier51

Guest

MichelXld

XLDnaute Barbatruc

didier51

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency