Extract All URL links on a certain Web Page

[gal4y]

Need to build a database of all hyperlinks on certain webpages which contains the web address. Some pages have log-ins so I need to be able to put that type of information before building the list.

I have tried a few code elements but nothing really builds the full array.

Does anyone have code to do this?

Thank you in advance


-Greg

 

[ioeuropa]

I'm kinda guessing what you need here. Without a more detailed description, I'm not sure what you want.
Hope this helps.


Dim IEApp As Object
Dim thestring(100) As String

Set IEApp = CreateObject("InternetExplorer.Application")
thewebsite="

http://www.thewebsite.com"

IEApp.Navigate (thewebsite)

thelength = IEApp.document.links.length
for i=1 to thelength
thelink(i-1) = IEApp.document.links(i-1)
next