scanFileTree



| Следующая

procedure scanFileTree(strNode: string);
var SR: TSearchRec;
    str:string;
    i : integer;
begin
i := 0;
    str:= SysToUTF8(strNode);
    if FindFirst(str+'\*', faAnyFile, SR) = 0 then
     repeat
          str:= SysToUTF8(SR.Name);
          if not ((str = '.')or(str = '..')or(str = '...'))then
          begin
               if (sr.Attr = faDirectory) then
               begin
                    {Тут обрабатывается для папок}
               end else
               begin
                    {Тут обрабатывается для файлов}
               end;
          end;
     until FindNext(SR) <> 0;
    FindClose(SR);
end;