Alle dateien von C:\ in ein Memo

[Pseudemys Nelsoni]

Moin,

ich habe eine Funktion geschrieben, die mit alle Dateien von C:\ auflisten sollte:

Delphi-Quellcode:

procedure GetFiles(const Path: string);
var
  SearchRec: TSearchRec;
  p: string;
begin
  p := path + '*.*';
  showmessage(p);
  if FindFirst(p, faAnyFile, SearchRec) = 0 then
  begin
    repeat
      if (SearchRec.Attr and faDirectory) = faDirectory then
        GetFiles(Path + SearchRec.Name + '\')
      else Form1.Memo1.Lines.Add(SearchRec.Name);
    until
      FindNext(SearchRec) <> 0;
    FindClose(SearchRec);
  end;
end;

Am Anfang zum Start übergebe ich "C:\"... das showmessage sollte mir nur als hilfe dienen um zu gucken ob die Pfäde stimmen, das tun sie aber nicht....die ersten 2 Ordner werden mir richtig angezeigt, aber nachher gibt es auf einmal ordner die nur "." heissen? WIe z.b "C:\MeinOrdner\.\"...woher kommt das?

[Luckie]

In der Code-Lib haben wir doch schon so eine Funktion, warum vergleichst du damit nicht einfach mal? Desweiteren repräsentiert '.' den aktuellen Ordner und '..' den übergeordneten. Sie werden nur im Explorer logischerweise nicht angezeigt.

[Pseudemys Nelsoni]

Danke Luckie, mit der Addition von:

if (SearchRec.Name <> '.') and (SearchRec.Name <> '..') then klappt es.

Ich weiss zwar, das "." für den aktuellen und ".." für den übergeordneten ordner stehen, nur weiss ich nicht, wieso sie einem übergeben werden hier...hmm, das würde ich gerne verstehen

[Christian Seehase]

Moin Pseudemys Nelsoni,

das klingt jetzt vielleicht seltsam aber:
Sie werden Dir übergeben, weil sie da sind, und Du sie abfragst.

Mach mal ein Dir in der Konsole. Dort werden sie auch angezeigt.

[Pseudemys Nelsoni]

Moin Christian,

also hat man in Unterordnern sozusagen immer versteckte(?) Ordner die auf den übergeordneten verweisen, richtig? Wenn das so ist, müsste das ganze dann nicht in einer Endlosschleife enden? Ich meine die Ordner würden ja immer wieder auf den anderen zeigen?

@Thema: Ich habe meinen Code nun so:

Delphi-Quellcode:

procedure GetFiles(const Path: string);
var
  SearchRec: TSearchRec;
  p: string;
begin
  p := path + '*.*';
  if FindFirst(p, faAnyFile, SearchRec) = 0 then
  begin
    repeat
      if (SearchRec.Attr and faDirectory) = faDirectory then
      begin
        if (SearchRec.Name <> '.') and (SearchRec.Name <> '..') then
          GetFiles(Path + SearchRec.Name + '\');
      end
      else Form1.Memo1.Lines.Add(SearchRec.Name);
    until
      FindNext(SearchRec) <> 0;
    FindClose(SearchRec);
  end;
end;

Ist daran immernoch was falsch? Weil komischer weise, bekomme ich am Ende der Suche:

Zitat:

desktop.ini
INFO2
desktop.ini
INFO2
desktop.ini
INFO2
desktop.ini
INFO2
desktop.ini
INFO2
desktop.ini
INFO2
desktop.ini
INFO2
desktop.ini
INFO2
desktop.ini
INFO2
desktop.ini
INFO2

Das kann nicht stimmen

[Luckie]

Arbeitet beimir korrekt. Aber warum benutzt du nicht sakuras erprobte Methode aus der Coide-Lib? hat zu dem noch den Vorteil, dass sie, im gegensatz zu deiner Methode, unabhängig von der GUI ist.

[Pseudemys Nelsoni]

Danke fürs Testen. Also bei mir finde ich per Windows-Suche nicht 1 Ergebnis auf "INFO2", hmm.

Ich habe Sakuras Code nicht benutzt, da ich so weit wie möglich immer versuche alles selbst zu schreiben - So kapier ich es meistens besser

[Luckie]

Die desktop.ini Dateien sind bei mir versteckte Dateien. Läßt du dir die auch anzeigen im Explorer? Eventuell findet er sie deswegen nicht bzw. zeigt sie nicht an.

[Pseudemys Nelsoni]

Hallo Lucky, stimmt Du hast Recht, ich habe mir mal die Pfade komplett anzeigen lassen...

Zitat:

F:\RECYCLER\S-1-5-21-1085031214-1604221776-839522115-1003\desktop.ini
F:\RECYCLER\S-1-5-21-1085031214-1604221776-839522115-1003\INFO2
F:\RECYCLER\S-1-5-21-1214440339-113007714-839522115-1003\desktop.ini
F:\RECYCLER\S-1-5-21-1214440339-113007714-839522115-1003\INFO2
F:\RECYCLER\S-1-5-21-1390067357-179605362-839522115-1003\desktop.ini
F:\RECYCLER\S-1-5-21-1390067357-179605362-839522115-1003\INFO2
F:\RECYCLER\S-1-5-21-1409082233-1214440339-725345543-1003\desktop.ini
F:\RECYCLER\S-1-5-21-1409082233-1214440339-725345543-1003\INFO2
F:\RECYCLER\S-1-5-21-1715567821-2077806209-725345543-1003\desktop.ini
F:\RECYCLER\S-1-5-21-1715567821-2077806209-725345543-1003\INFO2
F:\RECYCLER\S-1-5-21-1844237615-308236825-839522115-1000\desktop.ini
F:\RECYCLER\S-1-5-21-1844237615-308236825-839522115-1000\INFO2
F:\RECYCLER\S-1-5-21-1960408961-2052111302-725345543-1003\desktop.ini
F:\RECYCLER\S-1-5-21-1960408961-2052111302-725345543-1003\INFO2
F:\RECYCLER\S-1-5-21-2052111302-573735546-839522115-1003\desktop.ini
F:\RECYCLER\S-1-5-21-2052111302-573735546-839522115-1003\INFO2
F:\RECYCLER\S-1-5-21-790525478-1682526488-682003330-1003\desktop.ini
F:\RECYCLER\S-1-5-21-790525478-1682526488-682003330-1003\INFO2
F:\RECYCLER\S-1-5-21-823518204-1078145449-682003330-1003\desktop.ini
F:\RECYCLER\S-1-5-21-823518204-1078145449-682003330-1003\INFO2

MfG