Yanick,
by combining your code with Sergey's I now have exactly what I need. Many thanks.
John.
>John,
>
>see if this couldn't help
>
>oShell = CREATEOBJ('Shell.Application')
>oIEColl = oShell.Windows
>FOR EACH oIE IN oIEColl
> IF "IEXPLORE.EXE" $ oIE.FullName
> oDoc = oIE.Document
> FOR EACH olink IN oDoc.links
> ?oLink.HREF
> ENDFOR
> ENDIF
>ENDFOR
Beer is proof that God loves man, and wants him to be happy. - Benjamin Franklin
John J. Henn