Code:
For Each Name As String In IO.Directory.GetFiles("LDAP://", <DirectorySearch.TopOnly>)
    ListBox1.Items.Add(Name)
Next
<DirectorySearch.TopOnly> heißt so oder ähnlich, musst einfach mal was mit Directory eingeben, dann kommt ja das Auswahlfenster

Lg, Chris