Read the last 12 lines of a large text file 1

[alepore]

I am new to scripting and I need some direction/help. I have a large text file and I want to only email the last 12 lines of the text file. Currently, I do a ReadAll and put that into the body of the email and send it off. Any help will be appreciated.

Option Explicit
Dim FsoObject
Dim OpenText
Dim Answer, ReadText, objEmail
Dim wn, fs, ws
Set wn = WScript.CreateObject("WScript.Network&quot
Set fs = CreateObject("Scripting.FileSystemObject&quot
Set ws = CreateObject("WScript.Shell&quot
Set objEmail = CreateObject("CDO.Message&quot
Set FsoObject=wscript.createobject("scripting.filesystemobject&quot

Set ReadText=FsoObject.OpenTextFile("c:\textfile.txt", 1, "True&quot
Answer=ReadText.ReadAll

objEmail.From = "alepore@myemail.com"
objEmail.To = "alepore@myemail.com"
objEmail.Subject = "Test Subject"
objEmail.Textbody = Answer
objEmail.Configuration.Fields.Item ("

http://schemas.microsoft.com/cdo/configuration/sendusing")

= 2
objEmail.Configuration.Fields.Item ("

http://schemas.microsoft.com/cdo/configuration/smtpserver")

= "mail.myemail.com"
objEmail.Configuration.Fields.Item ("

http://schemas.microsoft.com/cdo/configuration/smtpserverport")

= 25
objEmail.Configuration.Fields.Update
objEmail.Send

 

[tsuji]

Hello alepore,

'after the Answer line
set ReadText=nothing
set FsoObject=nothing
aAnswer=split(Answer,vbcrlf)
sTrimAnswer=""
for i=ubound(aAnswer)-12+1 to ubound(aAnswer)-1
    sTrimAnswer=sTrimAnswer & aAnswer(i) & vbcrlf
next
sTrimAnswer=sTrimAnswer & aAnswer(ubound(aAnswer))
Answer=sTrimAnswer   '<<<the desired trimmed down answer
'followed by objEmail etc...

regards - tsuji