Office: Ordnernamen, die Kriterien erfüllen in Listbox aufführen

Hallo Zusammen,

ich suche nach einer function, mit der ich alle Ordner (ab einem fest vorgegebenen Startverzeichnis), deren Namen gewisse mehrere Kriterien enthalten (z.B. : beginnend mit "2012-", enthält "-04" und enthält "-ABC") in einer listbox ("LbOrdner")auf einer UserForm ("frmHaupt") anzeigen kann.

Irgendwann hatte ich soetwas schonmal gesehen, finde es aber nicht mehr. Kann mir jemand helfen?

Vielen Dank vorab,
Beere

 

Hallo nochmal,
also das Befüllen habe ich schonmal....nur die richtigen Inhalte fehlen mir noch:

Function ListBoxFuellen()
With frmHaupt.LbOrdner
.AddItem "Test 1"
.AddItem "Test 2"
End With
End Function

Wenn ich jetzt noch herausfinde wie ich die entsprechenden Ordnernamen übergebe bin ich einen ganzen Schritt weiter. :-)
Bin für jede Hilfe dankbar!
Beere

 

Hallo,

ich habe es jetzt so versucht:

Function ListBoxFuellen()
Dim OrdnerName As String
Dim strStartverzeichnis As String
strStartverzeichnis = "C:\......\" 'muss ja nicht jeder sehen
Dim i As Integer
OrdnerName = Dir$(strStartverzeichnis & "*2012*")
Do While OrdnerName <> ""
frmHaupt.LBOrdner.AddItem OrdnerName
OrdnerName = Dir$()
Loop
End Function

Klappt leider nicht, es wird kein einziger Eintrag in der Listbox angezeigt. Auch über debug.print bekomme ich keine Ordnernamen aufgeführt. Scheint als hätte ich hier in der Ordnersuche noch einen entscheidenden Fehler.

Kann es sein, dass es mit dem DIR-Befehl ein Problem gibt? Selbst wenn ich es bei strStartverzeichnis lasse (ohne die 2012 dahinter) bekomme ich keinen einzigen Eintrag. Das Verzeichnis existiert aber definitiv (copy and paste).
OrdnerName = Dir$(strStartverzeichnis)

 

Ah, ich habe etwas neues herausgefunden. Ich arbeite mit einem Testverzeichnis (ich will ja nichts kaputt machen), daher war das Verzeichnis leer.
Jetzt habe ich testweise mal ein paar Dateien in die Verzeichnisse gelegt und komme zu dem Erkenntnis:
Ich bekomme Dateien angezeigt (unter Beachtung meiner Filter)...ich will aber doch die Verzeichnisse aufgelistet bekommen, nicht die Dateien. Was mache ich falsch?

:-(