tmp = Dir(pfad, vbDirectory) ' Ersten Eintrag abrufen.
        Do While tmp <> ""    ' Schleife beginnen.
            ' Aktuelles und übergeordnetes Verzeichnis ignorieren.
               If tmp <> "." And tmp <> ".." Then
                ' Mit bitweisem Vergleich sicherstellen, daß Name1 ein
                ' Verzeichnis ist.
                If (GetAttr(pfad & tmp) And vbDirectory) = vbDirectory Then
                    Debug.Print pfad & tmp   ' Eintrag nur anzeigen,
                                              ' wenn es sich  um ein 
                                              ' Verzeichnis handelt.
                    zaehler = zaehler + 1
                    ReDim Preserve verzeichnis(zaehler)
                    verzeichnis(zaehler).verzeichnis = pfad & tmp & "\"
                End If
            End If
            tmp = Dir ' Nächsten Eintrag abrufen.
        Loop

Gruss

Markus