How to listen all the open documents

[patfac]

Hi all !

I'm trying to listen all the open documents but when I call the url propertie , i've a big error Has someone any idee ?

Sub Main
Dim oDesktop As Object, oDocs As Object
Dim oDoc As Object, oComponents As Object
'The hasMoreElements() will fail with the oDesktop,
'I do not know why!
'oDesktop = createUnoService("com.sun.star.frame.Desktop")
oComponents = StarDesktop.getComponents()
analyseobjet oComponents(1)
oDocs = oComponents.createEnumeration()
Do While oDocs.hasMoreElements()
oDoc = oDocs.nextElement()
msgbox odoc.url <--- It's Here ..
Loop

End Sub

Thanks