Micro Focus QTP (UFT) Forums
I can't displaying all the pages name in the .txt file - Printable Version

+- Micro Focus QTP (UFT) Forums (https://www.learnqtp.com/forums)
+-- Forum: Micro Focus UFT (earlier known as QTP) (https://www.learnqtp.com/forums/Forum-Micro-Focus-UFT-earlier-known-as-QTP)
+--- Forum: UFT / QTP Interview Questions (https://www.learnqtp.com/forums/Forum-UFT-QTP-Interview-Questions)
+--- Thread: I can't displaying all the pages name in the .txt file (/Thread-I-can-t-displaying-all-the-pages-name-in-the-txt-file)

I can't displaying all the pages name in the .txt file - njnirmal - 08-17-2009

I am using web application . I want to display my all the pages name . But i am not getting and some messge is displaying. error message is
"Type mismatch Line (21): "ln=total_no_link(i).getRoProperty("name")".
Why this error is displaying .
I am displying my code .


Code:
Dim Total_no_link
Dim clink ,rc,mysmgbox
Dim ln
Set fileSysObject=createobject("Scripting.FileSystemObject")
Set linksFileName=fileSysObject.opentextfile("D:\a1.txt",2,true)
Set cLink =description.Create()
cLink("html").value="A"
Browser("Login Page").Page("Login Page").WebList("select").Select "SQL2005"
Browser("Login Page").Page("Login Page").WebList("select_2").Select "VIL0910SQL2005"
Browser("Login Page").Page("Login Page").WebEdit("txtUserID").Set "nj"
Browser("Login Page").Page("Login Page").WebEdit("WebEdit").SetSecure "4a89374a064976d6f9f1"
Browser("Login Page").Page("Login Page").WebList("select_3").Select "WHFD00"
Browser("Login Page").Page("Login Page").WebList("select_4").Select "WHFD00"
Browser("Login Page").Page("Login Page").WebList("select_5").Select "FOOD"
Browser("Login Page").Page("Login Page").WebButton("Enter").Click
Browser("Login Page").Page("Main Menu Page").Link("General Master").Click
Set rc=Browser("Login Page").Page("Main Menu Page").ChildObjects(cLink)
Total_no_link=rc.count()
For i=0 to  total_no_link-1
  [b] ln=total_no_link(i).getRoProperty("name")[/b]
    linksFileName.writeline(link_name)
Next
linksFileName.close
Set fileSysObject=nothing


'mymsgbox=msgbox(total_no_link)
Browser("General Master").Page("General Master").WebButton("Exit").Click
Browser("Login Page").Page("Main Menu Page_2").Link("Exit").Click
Browser("Login Page").Page("Login Page_2").Sync
Browser("Login Page").Close


PLese tell me why this messge is displaying ..

Thanks in Advance

RE: I can't displaying all the pages name in the .txt file - basanth27 - 08-17-2009

Is this a interview question ?. If not, please post it under the appropriate forum category.