Ordnernamen ermitteln

[dersunny]

Hallo ihr
ich bräuchte mal wieder eure Unterstützung.

Ich bräuchte gerade einen Programmschnipsel, der aus einem gegebenen Ordner die Namen aller Ordner (jedoch nicht Unterordner oder Dateien) ausliest, jedoch nirgendwo anzeigt.
Die Ordnernamen sind einerseits Zahlen von 01 bis 12 (stellen die Monate dar), in einem anderen Fall sind die Ordnernamen 10, 11,..., und sollen die Jahreszahl darstellen. Ein Jahr-2000 Problem (bzw 2100-Problem) kann nicht auftreten. Es wäre jedoch einrichtbar, dass die Jahres-Ordner 2010, 2011,... heißen. Die Ordnernamen sollen dann weiterbenutzt werden, um bestimmte Teile des Programms zu öffnen, auch in Verbindung mit TDate, was dann aber trivial ist.

Nach ein wenig rumstöbern im Netz und im schlauen Buch kristallisiert sich raus, dass es da wohl nur TSearchRec, in Verbindung mit FindFirst/FindNext, gibt.
Nun weiß ich aber nicht, ob das in meinem Fall funktioniert, und wenn doch wie ich das einbinde.
Für Alternativen bin ich ganz offen .


Vielen Dank schon mal im Vorraus für eure (wie immer) hilfreiche Unterstützung!