Einen schönen guten Tag! ich habe folgendes Problem:
Ich hab eine Funktion gefunden, die es mir erlaubt alle Dateien eines Ordners anzeigen zu lassen, auch die, die sich in Unterordnern befinden. Das klappt auch alles wunderbar, doch würde ich gerne, um dieses Programm ein wenig benutzerfreundlicher zu machen eine ProgressBar einbauen, die anzeigt wieviele Prozent die Dateien, die bisher gefunden wurden von der Anzahl der ingsgesamt gefundenen Datein später ausmachen. Das ist soweit alles kein Problem, doch weiß ich nicht wie ich vorher herauskriege wieviel Dateien ich später finden werde.
Delphi-Quellcode:
procedure TForm1.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(Path + SearchRec.Name);
until
FindNext(SearchRec) <> 0;
FindClose(SearchRec);
end;
end;
vielen Dank schonmal für die Hilfe