Bonjour,
Je suis débutante en VBScript et je souhaite modifier le code ci-dessous afin de se positionner sur la fin du fichier texte et remonter à partir de la dernière ligne pour afficher les dix derniers lignes au lieu de lire ligne par ligne.

Voilà Code qui permet de lire ligne par ligne :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
Dim aryline, lngTail, strFileName
lngTail = 10
set objFs = Wscript.CreateObject("Scripting.FilesSystemObject")
if objFs.FileExists(strFileName) Then
set objFile=objFs.OpenTextFile(strFileName,ForReading)
reDim aryline(lngTail)
i=0
Do until objFile.AtEndOfSteam
i=(i+1) Mod lngTail
aryline(i)=objFile.ReadLine
Loop
// J'ai une petite idée :
récupérer le nombre de ligne par : la propriété Line

seulement ça me donne un nombre que je ne sais pas quoi faire avec. J'aimerais bien récupérer un pointeur sur la dernière ligne et puis déplacer le pointeur en haut pour récupérer les derniers lignes.

Merci de me proposer une solution.

dadaapocalypse