Alle Verzeichnisse auflisten

[Shakie]

Hallo!
Ich möchte in einer ComboBox (ListSchuljahr) alle Unterverzeichnisse vom Programmverzeichnis auflisten. Da dachte ich mir ich mache es mit der Dir-Funktion, aber ich krieg das nicht hin. Hier ist mein Code:

    Dim strVerzeichnis As String
    
    
    strVerzeichnis = Dir$(App.Path & "\", vbDirectory)
    While Len(strVerzeichnis) <> 0
        Me.ListSchuljahr.AddItem strVerzeichnis
        strVerzeichnis = Dir$
    Wend

Steht "vbDirectory" nicht für Verzeichnis? Denn mit dem aktuellen Code werden alle Verzeichnisse UND alle Dateien aufgelistet UND (das seltsamste) einmal ein Punkt und einmal zwei Punkte. Also als alternative könnte ich das FileSystemObjekt aus der "Microsoft Scripting Runtime" verwenden, aber ich möchte eigentlich so wenig Komponenten verwenden wie möglich.

 

[wincnc]

Schau mal hier nach:
Tipp

 

[Shakie]

Danke für die ANtwort, aber die Möglichkeit mit dem FileSystemObject kenne ich schon, hatte ich ja auch geschrieben (im unteren Absatz).

 

[Filone]

Ich würde Dir APIs "FindFirstFile, FindNextFile" empfehlen. Du kannst bei dem gefundenen File erfragen, ob es sich um einen Ordner handelt (FILE_ATTRIBUTE_DIRECTORY) und dann zum Listenfeld hinzufügen.

Falls es Schwierigkeiten gibt helfe ich Dir gerne weiter. Ich bin aus beruflichen Gründen nur momentan nicht so oft im Netz.

Viel Erfolg.

 

[Shakie]

Danke, damit komme ich zurecht!