QTP Script to count number of lines in a text file-VB Script to count number of lines in a text file

QTP Script to count number of lines in a text file.



Dim a,b

Const ForReading = 1

Set a=CreateObject( "Scripting.FileSystemObject" )

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

b.ReadAll

Msgbox "Number of lines= " & b.Line