Przeszukiwanie znalezionych katalogów

0
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.

0

Sprawdz czy znaleziony plik jest katalogiem (faDirectory) i czy Name <> '..' i '.' i przeszukaj go. Najlepiej zrobić to rekurencyjnie. Poszukaj o usuwaniu katalogu z plikami na necie, i zrób per analogien.

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0