Einzelnen Beitrag anzeigen

Benutzerbild von SirThornberry
SirThornberry
(Moderator)

Registriert seit: 23. Sep 2003
Ort: Bockwen
12.235 Beiträge
 
Delphi 2006 Professional
 
#1

Prüfen ob Ordner, Unterordner hat

  Alt 26. Apr 2006, 14:23
Hallo,

wie kann ich schnell prüfen ob ein Ordner einen Unterordner hat?
Zur versuche ich mit
Delphi-Quellcode:
FindFirst(Folder, faDirecotry, LSearchRec)
[...]
zu prüfen ob im Suchergebnis ein Ordner ist. Jedoch werden bei der Angabe von "faDirectory" nicht nur Ordner zurück geliefert sondern auch Dateien. Wenn ich also einen Ordner mit 5000 Dateien hab und prüfen will ob in diesem Ordner ein Unterordner existiert, gehe ich mit FindFirst-FindNext 5000 dateien durch um dann festzustellen,dass kein Ordner dabei ist. Das muss doch auch irgendwie effektiver funktionieren.
Jens
Mit Source ist es wie mit Kunst - Hauptsache der Künstler versteht's
  Mit Zitat antworten Zitat