Hallo,
ich verwende schon seit geraumer Zeit folgende Methode aus
der CodeLib und habe nun das erste Mal Probleme damit.
Delphi-Quellcode:
procedure TMainForm.FindAllFiles(var FileList: TStrings; RootFolder: string; Mask: string = '*.*'; Recurse: Boolean = True);
var
SR: TSearchRec;
begin
IncludeTrailingPathDelimiter(RootFolder);
if Recurse then
if FindFirst(RootFolder + '*.*', faAnyFile, SR) = 0 then
try
repeat
if SR.Attr and faDirectory = faDirectory then
if (SR.Name <> '.') and (SR.Name <> '..') then
FindAllFiles(FileList, RootFolder + SR.Name, Mask, Recurse);
until FindNext(SR) <> 0;
finally
FindClose(SR);
end;
if FindFirst(RootFolder + Mask, faAnyFile, SR) = 0 then
try
repeat
if SR.Attr and faDirectory <> faDirectory then
begin
FileList.Add(RootFolder + SR.Name);
end;
until FindNext(SR) <> 0;
finally
FindClose(SR);
end;
end;
Wenn ich nun abfragen möchte wieviele Dateien in einem Temp-Verzeichnis
und seinen Unterverzeichnissen enthalten sind bekomme ich jedes Mal den
Wert 0 zurück. Das obwohl in den Unterverzeichnissen definitiv Dateien
enthalten sind. Hat Jemand vielleicht eine Idee woran das liegen könnte?
Wenn ich direkt die Unterverzeichnisse angebe bekomm ich die richtige
Werte zurückgegeben. Offensichtlich gibt es irgendwo ein Problem mit
der rekusiven Suche. Ich verwende Delphi 7.
Delphi-Quellcode:
FindAllFiles(TempFiles, 'c:\Temp\', '*.*', True);
showmessage(inttostr(Tempfiles.Count));