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.

Ordner prüfen ob er leer ist

Ordner prüfen ob er leer ist

Re: Ordner prüfen ob er leer ist

Re: Ordner prüfen ob er leer ist

Re: Ordner prüfen ob er leer ist

Re: Ordner prüfen ob er leer ist

Re: Ordner prüfen ob er leer ist

Re: Ordner prüfen ob er leer ist

Re: Ordner prüfen ob er leer ist

Re: Ordner prüfen ob er leer ist

Re: Ordner prüfen ob er leer ist

Forumregeln

SaFu Registriert seit: 8. Nov 2006 1.360 Beiträge Delphi 10.3 Rio	#1 Ordner prüfen ob er leer ist 17. Mär 2008, 09:13 Hi gibt es eine Möglichkeit zu prüfen ob ein Ordner lee ist oder nicht z.b. markieren Delphi-Quellcode: if Directory(C:\test) = Empty then showmessage ('leer'); Gruß Sascha "... Wie gesagt, die Nutzer von 10, 12, 14 Zoll Display's werden deine Seite nicht in voller Pracht sehen können, ... Surft Ihr mit dem Taschenrechner?"
	Zitat

SirThornberry (Moderator) Registriert seit: 23. Sep 2003 Ort: Bockwen 12.235 Beiträge Delphi 2006 Professional	#2 Re: Ordner prüfen ob er leer ist 17. Mär 2008, 09:18 mit FindFirst und FindNext schauen ob etwas im ordner gefunden wird Jens Mit Source ist es wie mit Kunst - Hauptsache der Künstler versteht's
	Zitat

Aurelius Registriert seit: 29. Jan 2007 Ort: Erfurt 753 Beiträge Delphi 7 Personal	#3 Re: Ordner prüfen ob er leer ist 17. Mär 2008, 09:19 da bräuchte man doch nur per FindFirst() zu gucken ob du was findest... //Da war Sir Thornberry ein bisschen schneller Jonas
	Zitat

SirThornberry (Moderator) Registriert seit: 23. Sep 2003 Ort: Bockwen 12.235 Beiträge Delphi 2006 Professional	#4 Re: Ordner prüfen ob er leer ist 17. Mär 2008, 09:27 Aber Vorsicht - FindFirst alleine geht schief weil in jedem Ordner "." und ".." gefunden wird. Jens Mit Source ist es wie mit Kunst - Hauptsache der Künstler versteht's
	Zitat

Aurelius Registriert seit: 29. Jan 2007 Ort: Erfurt 753 Beiträge Delphi 7 Personal	#5 Re: Ordner prüfen ob er leer ist 17. Mär 2008, 09:30 Nicht gewusst Jonas
	Zitat

SaFu Registriert seit: 8. Nov 2006 1.360 Beiträge Delphi 10.3 Rio	#6 Re: Ordner prüfen ob er leer ist 17. Mär 2008, 09:31 so ähnlich if FindFirst(Form1.ServerPfad + 'Bilder',faAnyFile, SR) = 0 then "... Wie gesagt, die Nutzer von 10, 12, 14 Zoll Display's werden deine Seite nicht in voller Pracht sehen können, ... Surft Ihr mit dem Taschenrechner?"
	Zitat

taaktaak Registriert seit: 25. Okt 2007 Ort: Radbruch 1.990 Beiträge Delphi 7 Professional	#8 Re: Ordner prüfen ob er leer ist 17. Mär 2008, 09:46 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. Ralph
	Zitat