qtp script to read last line of a text file-vb script to read last line of a text file

qtp script to read last line of a text file


Dim a,b,c

Set a = CreateObject("Scripting.FileSystemObject")

Set b = a.opentextfile("C:\qtp.txt", 1)

i = 0

Do While b.AtEndOfStream <> True

c = b.ReadLine

i = i + 1

Loop

MsgBox c