procedure TNazor.FormActivate(Sender: TObject);
var
SR : TSearchRec;
Found : Integer;
begin
Found := FindFirst('C:\Documents and Settings\*.*', faAnyFile, SR);
while (Found = 0) do // dopoki liczba znalezionych plikow nie
// bedzie rowna 0
begin
Memo1.Lines.Add('C:\Documents And Settings\' + SR.Name); // dodaj do Memo znaleziony plik
Found := FindNext(SR); // szukaj dalej
end;
FindClose(SR); // zakoncz wyszukowanie
showmessage('koniec');
end;
To algorytm z dzialu artykuly, chcialem go wykorzystac do szukania konkretnego pliku, jednak ten algorytm wyszukuje tylko konkretny podany katalog, moglby mi ktos troche rozjasnic jak moge sprawic by przeszukiwal dalej katalogi ktore znalazl? Przeszukiwalem juz forum i artykuly ale za duzo na ten temat nie moglem znalezc.