FindFirst usw unterschlagen Verzeichnisse

[scp]

Ausserdem kommt es vor, das
    If FindFirst(root.Text + '*', faDirectory, Verzeichnisse) = 0 Then Begin Verzeichnisse nicht findet. Da das Attribut faDirectory z.B. in himitsus Code eh später überprüft wird, sollte man mit

    If FindFirst(root.Text + '*.*', faAnyFile, Verzeichnisse) = 0 Then Begin arbeiten.

PS: Das *.* habe ich eingefügt, da es auch Ordner mit Punkt drin gibt.