Einzelnen Beitrag anzeigen

gee21

Registriert seit: 3. Jan 2013
190 Beiträge
 
Delphi 10.4 Sydney
 
#1

Alle Dateien auflisten funktioniert nur manchmal

  Alt 23. Mär 2016, 18:35
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?


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
Angehängte Dateien
Dateityp: zip res_mods.zip (417,7 KB, 3x aufgerufen)
Robert
  Mit Zitat antworten Zitat