Alle Dateien auflisten funktioniert nur manchmal

**gee21**

Hallo.

Ich habe ein Problem. Ich versuche alle Dateien eines Verzeichnisses aufzulisten (inkl Unterverzeichnisse)

Eigentlich klappt es ganz gut. Aber bei gewissen Verzeichnissen, wird nur ein Bruchteil aller Dateien aufgelistet.

Weis jemand von euch warum dies manchmal klappt und manchmal nicht?

zusammenfalten · markieren

Delphi-Quellcode:

			   
procedure DateienAuflisten(Pfad: string; DateiListe: TStrings; Rekursiv: Boolean = true; Suchmaske: string = '*');

var

  SR1, SR2: TSearchRec;

begin

  if Pfad[Length(Pfad)] <> '\'

  then Pfad := Pfad + '\';

  if FindFirst(Pfad + Suchmaske, faAnyFile, SR1) = 0

  then begin

    repeat

      if (SR1.Attr <> faDirectory)

      then DateiListe.Add(Pfad+SR1.Name);

    until FindNext(SR1) <> 0;

    FindClose(SR1);

  end;

  if Rekursiv then begin

    if FindFirst(Pfad+'*', faAnyFile, SR2) = 0

    then begin

      repeat

        if (SR2.Attr = faDirectory) and (SR2.Name <> '.') and (SR2.Name <> '..')

        then DateienAuflisten(Pfad+SR2.Name, DateiListe, true);

      until FindNext(SR2) <> 0;

      FindClose(SR2);

    end;

  end;

end;

DateienAuflisten(ExtractFilePath(Application.Exename)+'AA\'+inttostr(combobox2.ItemIndex)+'\res_mods',memo1.lines,true,'*.*');

Liegt es evt an den Dateien selbst? (Beispiel Dateien im Anhang)

Besten Dank schon jetzt

Alle Dateien auflisten funktioniert nur manchmal

Alle Dateien auflisten funktioniert nur manchmal

Forumregeln