Namen von vorhandenen Pfaden auslesen

[Dunkelbunt27]

Zitat:

Eigentlich "Neue Frage neuer Thread"

Das war eigentlich meine Anfangsfrage, ich war wohl etwas undeutlich...

Die ListBox zu füllen ist eher Nebensache.
Das wichtige ist ohne zu wissen ob oder welche Dateien in einem Ordner vorhanden sind, deren existenz und Namen (Pfad) herauszufinden.

Danke, ich schau mal bei deinen aufgelisteten Sucheinträgen nach.

[himitsu]

Speziell für Dateien, im Dateisystem > FileExists

[Dunkelbunt27]

Ja, FileExists ist bekannt... nur ist das nur sinnvoll, wenn man weiß wie die Datei heißt, die überprüft werden soll.

[Satty67]

Vieleicht suchst du ja sowas (der erte Aufruf dauert, wenn Du Windows als Such-Ordner lässt...)

Wie Du die ermittelten Dateien (statt im Memo zu listen) auswertest, sollte klar sein.

Delphi-Quellcode:

procedure ListDirectory(APath, AFilter : String; AStrings : TStrings);
var
  s : String;
  sr : TSearchRec;
begin
  s := IncludeTrailingPathDelimiter(APath);
  try
    if FindFirst(s + AFilter, faAnyFile, sr) = 0 then
    begin
      repeat
        if (sr.Name <> '.') and (sr.Name <> '..') then // Korrektur durch DeddyH
        begin
          AStrings.Add(s + sr.Name);
          if (sr.Attr and faDirectory) = faDirectory then
            ListDirectory(s + sr.Name, AFilter, AStrings);
        end;
      until FindNext(sr) <> 0;
    end;
  finally
    FindClose(sr);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.Lines.BeginUpdate;
  ListDirectory('C:\Windows', '*.*', Memo1.Lines);
  Memo1.Lines.EndUpdate;
end;

[DeddyH]

Zitat:

if sr.Name[1] <> '.' then begin

Das ist falsch, da Datei-/Verzeichnisnamen auch mit einem Punkt beginnen dürfen.
if (sr.Name <> '.') and (sr.Name <> '..') then begin So ist es richtig.

[Coffeecoder]

Zitat von DeddyH:

Zitat:

if sr.Name[1] <> '.' then begin

Das ist falsch, da Datei-/Verzeichnisnamen auch mit einem Punkt beginnen dürfen.
if (sr.Name <> '.') and (sr.Name <> '..') then begin So ist es richtig.

Genau, da "." das aktuelle Verzeichnis ist und ".." das Elternverzeichnis ist.

[DeddyH]

Jepp, die werden ja immer mit gelistet. Mir ging es auch nur darum, dass man das nicht wie gezeigt abkürzen kann, ohne ggf. Dateien oder Verzeichnisse zu unterschlagen.