Prüfen ob bestimmte Dateien im Ordner sind ....

[Rapthor]

Wie kann ich einen Ordner, meinetwegen aus der selectDirectory - Anweisung, dahingehend überprüfen, ob er bestimmte Dateien beinhaltet? Ich kenne eine Methode, die allerdings sehr umständlich ist: Undzwar werden ALLE Dateinamen nacheinander in eine ListBox geschrieben und danach wird per Schleife überprüft ob das jeweilige ListBox.Items[i] die von mir gesuchte Datei ist. Aber das ist bei 100en von Dateien doch ein übelster Aufwand ...

Es soll so in etwa funzen:

Delphi-Quellcode:

if { Datei1 im Ordner vorhanden } AND { Datei2 im Ordner vorhanden } then .... ;

[Christian Seehase]

Moin Rapthor,

das wirst Du nicht anders machen können, als Datei für Datei zu vergleichen, allerdings kannst Du das ja machen während Du die Listbox füllst, damit die entsprechenden gar nicht erst dort landen.

[roderich]

häh ?!? Wieso nicht ein simples
if FileExists(Dateiname1) ... ??

Roderich

[Dannyboy]

FindFirst, FindNext RULZ

Ja, Du musst tatsächlich jede Datei individuell prüfen, aber nicht mittels

Zitat:

if { Datei1 im Ordner vorhanden } AND { Datei2 im Ordner vorhanden } then .... ;

Nimm am besten 2 TStrings! Im ersten TString lädst Du die Namen der
Dateien rein, die im Ordner sind (Findfirst, Findnext) und im 2. TString
sollten die zu suchenden Dateien stehen. Dann nimmst Du 2 Integer-
Variablen, bastelst 'ne doppelte Schleife und vergleichst die beiden
Listen Eintag für Eintrag.

[Christian Seehase]

Moin Dannyboy,

wenn schon dann TStringList. TStrings ist eine abstrakte Klasse.
Ausserdem sollte dafür eine Liste genügen.
In der FindFirst/FindNext Routine werden dann nur noch die Dateien als Ergebnis in die Listbox geschrieben, die in der Vergleichsliste nicht auftauchen.

[Dannyboy]

Zitat:

wenn schon dann TStringList. TStrings ist eine abstrakte Klasse.

Wo Du Recht hast, hast Du Recht. Asche über mein Haupt. :firejump:

[Christian Seehase]

Moin Dannyboy,

ich möchte lieber nicht wissen wie oft ich mich schon geirrt habe ;-)

BTW: Ich hab' mal Dein Doppelposting gelöscht.

[Rapthor]

Danke hab's schon hinbekommen!