wie kann ich Verzeichnisse von Dateien unterscheiden?

[smart]

Hallo Alle!

Wenn ich mir mit Findfirst eine Dateiliste zusammenstelle, wie kann ich Verzeichnisse von Dateien unterscheiden? Ich brache z.B soeine Abfrage

Delphi-Quellcode:

If ListBox1.Items[0] = Verzeichnis then ....

Kann Einer von Euch mal bitte helfen?

Gruß
Heike

[arbu man]

wie wärs mit der Function DictionaryExists ?

[DeddyH]

Bei einem Verzeichnis enthalten die Attribute das Flag faDirectory. Also lautet die Abfrage

Delphi-Quellcode:

if (Rec.Attr and faDirectory) = faDirectory then...

Wobei Rec ein TSearchRec ist.

[Muetze1]

Zitat:

Zitat von arbu man

wie wärs mit der Function DictionaryExists ?

Gegenvorschlag: DirectoryExists

@DeddyH: Dann poste bitte auch gleich das FindFirst(), FindNext() und FindClose() auf das du dich beziehst und nicht nur die Zeile dazwischen...

[DeddyH]

FindFirst steht doch schon im Post des Threaderstellers.

[Muetze1]

Zitat:

Zitat von DeddyH

FindFirst steht doch schon im Post des Threaderstellers.

Das damit die Listbox gefüllt wird, aber laut Threadersteller wird dann die Liste in der ListBox durchgegangen. Also will man zum Zeitpunkt der Listeniteration unterscheiden und nicht beim eintragen...

Delphi-Quellcode:

var
  lSR: TSearchRec;
begin
  if FindFirst(ListBox1.Items[0], lSR) then
  begin
    if lSR.Attr and faDirectory = faDirectory then
      ShowMessage('dir')
    else
      ShowMessage('file');
    FindClose(lSR);
  end;
end;

[SirThornberry]

@Muetze: Du hast schon recht das später unterschieden werden soll. Aber das sinnvollste ist beim lesen des Verzeichnisinhalts sich das gleich mit zu merken anstelle das Dateisystem mehrfach anzurühren.

[DeddyH]

Was spricht denn dagegen, gleich beim Füllen der Listbox das Flag abzufragen und in irgendeiner Weise zu merken?

[EDIT]Jens war schneller[/EDIT]

[smart]

Schon mal vielen Dank für die Hilfe!

Ich muss doch einwenig mehr schreiben. Der Anwender ist dumm und kennt den Unterschied zwischen Dateien und Verzeichnisse nicht. Er hat nur eine Liste mit Verzeichnisse und Dateien gemischt vor sich und möchte daraus beliebig löschen. Also, die Listbox ist schon fertig eingelesen mit Dateien und Verzeichnisse. Im Nachhinein sollen Verzeichnisse und/oder Dateien gelöscht werden. Also brauche ich soetwas, oder?

Delphi-Quellcode:

if DirectoryExists(ListBox1.Items[A]) then
begin
    If deldir(ListBox1.Items[A]) = True then
          MessageDlg('Verzeichnis gelöscht!', mtInformation, [mbOK], 0);
    end
    else
          DeleteFile(ListBox1.Items[A]);

Gruß
Heike

[RavenIV]

Warum verwendest Du nicht die TTreeListView?
Dann hat der Benutzer das in gewohnter Anzeige wie im Explorer...

[smart]

Zitat:

Zitat von RavenIV

Warum verwendest Du nicht die TTreeListView?
Dann hat der Benutzer das in gewohnter Anzeige wie im Explorer...

Danke, da hast Du Recht, soweit hatte ich noch nicht gedacht.

Gruß
Heike

[Christian Seehase]

Moin Heike,

und eine Bitte:

Boolsche-Ausdrücke nie auf =true bzw. false prüfen. Gerade ersteres kann schiefgehen, und es ist lesbarer.

Also statt:

Delphi-Quellcode:

If deldir(ListBox1.Items[A]) = True then

besser:

Delphi-Quellcode:

If deldir(ListBox1.Items[A]) then

Danke ;-)

[smart]

Zitat:

Zitat von Christian Seehase

Boolsche-Ausdrücke nie auf =true bzw. false prüfen. Gerade ersteres kann schiefgehen, und es ist lesbarer.

Vielen Dank für den Tipp. Ist auch weniger Tipparbeit ;-)

Gruß
Heike