How to get the names of all elements of directory (SAPGuiElement)

[nguyen4685]

finally it works

f.e. i want to select "S-2540"

Set objects = SAPGuiSession("Session").SAPGuiWindow("Directorys on Server itpqdi30").ChildObjects
For i=0 To objects.Count-1
If objects.Item(i).Object.Text = "S-2540" Then
objects.Item(i).Object.SetFocus
End If
Next

I hope it could help someone