Whether function can return number of links and their names in a web page

[ssvali]

Try the below code

Code:

oval=  lnkCount()
For j = lbound(oval) to ubound(oval)
    Print oval(j)
Next
Print "Total No . of Link" &  ubound(oval)

Function lnkCount()

   Set linkDesc = Description.Create
    linkDesc("micclass").value = "Link"
    Set lnk = Browser("g").Page("g").ChildObjects(linkDesc)
    For i = 0 to lnk.Count - 1
        ReDim Preserve lnkname(i)
        lnkname(i) = lnk(i).GetROProperty("name")
        
    Next
    lnkCount = lnkname
    
End Function