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

[SirThornberry]

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

[Aurelius]

Nicht gewusst

[SaFu]

so ähnlich

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

[Klaus01]

Zitat von fuknersascha:

so ähnlich

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

Ich würde die Suche etwas spezifizieren.

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 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.