Hallo Alle!

Wenn ich mir mit Findfirst eine Dateiliste zusammenstelle, wie kann ich Verzeichnisse von Dateien unterscheiden? Ich brache z.B soeine Abfrage
If ListBox1.Items[0] = Verzeichnis then .... Kann Einer von Euch mal bitte helfen?

Gruß
Heike

wie wärs mit der Function DictionaryExists ?

Bei einem Verzeichnis enthalten die Attribute das Flag faDirectory. Also lautet die Abfrageif (Rec.Attr and faDirectory) = faDirectory then... Wobei Rec ein TSearchRec ist.

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

FindFirst steht doch schon im Post des Threaderstellers.

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

zusammenfalten · markieren

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;

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

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

[EDIT]Jens war schneller[/EDIT]

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?

markieren

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

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