Reading Data character by character from a Flat File in QTP

March 24, 2010

This is a set of codes where we will be reading single char from a textfile

Set objFSO = CreateObject("Scripting.FileSystemObject")

Set objFile = objFSO.OpenTextFile("D:\qtp.txt", 1)
Do Until objFile.AtEndOfStream
strCharacters = objFile.Read(1)
msgbox strCharacters
Loop

You Might Also Like

0 comments