Ordner prüfen ob er leer ist

[SaFu]

Hi

gibt es eine Möglichkeit zu prüfen ob ein Ordner lee ist oder nicht

z.b.

Delphi-Quellcode:

if Directory(C:\test) = Empty then
showmessage ('leer');

Gruß Sascha

[SirThornberry]

mit FindFirst und FindNext schauen ob etwas im ordner gefunden wird :)

[Aurelius]

da bräuchte man doch nur per FindFirst() zu gucken ob du was findest...

//Da war Sir Thornberry ein bisschen schneller :D

[SirThornberry]

Aber Vorsicht - FindFirst alleine geht schief weil in jedem Ordner "." und ".." gefunden wird.

[Aurelius]

Nicht gewusst :thumb:

[SaFu]

so ähnlich

Delphi-Quellcode:

if FindFirst(Form1.ServerPfad + 'Bilder',faAnyFile, SR) = 0 then

[Klaus01]

Zitat:

Zitat von fuknersascha

so ähnlich

Delphi-Quellcode:

if FindFirst(Form1.ServerPfad + 'Bilder',faAnyFile, SR) = 0 then

Ich würde die Suche etwas spezifizieren.

Delphi-Quellcode:

if FindFirst(Form1.ServerPfad + 'Bilder\*.jpg',faAnyFile, SR) = 0 then

Denn bei Deiner Abfrage werden auch die . und .. Verzeichnisse mit ausgewertet.
Wie der Sir schon gesagt hat.

Grüße
Klaus

[taaktaak]

Hmm, schon richtig,
aber bei Angabe eines Extends wird nicht allgemeingültig geprüft, ob das Verzeichnis leer ist. In diesem Fall wird lediglich geprüft, ob sich Dateien mit der spezifizierten Endung im Verzeichnis befinden.

[Klaus01]

Zitat:

Zitat von taaktaak

Hmm, schon richtig,
aber bei Angabe eines Extends wird nicht allgemeingültig geprüft, ob das Verzeichnis leer ist. In diesem Fall wird lediglich geprüft, ob sich Dateien mit der spezifizierten Endung im Verzeichnis befinden.

Hallo Ralph,

das ist schon richtig was Du schreibst.
Ich ging nur davon aus, dass sich im Ordner Bilder auch nur jpg-Bilder befinden.

Grüße
Klaus

[SaFu]

Ja mein problem ist ja noch das ich auf drei Formate prüfen muss (jpg,gif und bmp) also fühge ich es einfach mit einem OR an oder?

einfacher wäre es natürlich ob es kommplett leer ist.