Сканирование директории

[D!zel]

может кто знает как можно сканировать нужную папку на все находящиеся в ней файлы и подпапки?

[Квэнди]

findfirst +f1
findnext + f1
tsearchrec +f1

[Volkogriz]

Доброе время суток!!!
Попробуй так ;

function GetFiles(Path:String; Full: Boolean = False):TStrings;
   Var
   Rec:TSearchRec;
   TMP:TStrings;
   ls: String;
   i: integer;
begin
  Result:=TStringList.Create;
  if Path[Length(Path)]<>'\' Then Path:=Path+'\';
  //ChDir(Path);
  if FindFirst(Path+'\*.*',faAnyFile,Rec)=0 then
    begin
     if (Rec.Name<>'.')and(Rec.Name<>'..') then
       if (Rec.Attr and faDirectory) <> 0 then begin
       TMP:=GetFiles(Path+Rec.Name,True);
       Result.AddStrings(TMP);
       TMP.Free;
       end else Result.Add(Path+Rec.Name);

     while FindNext(Rec)=0 do
       begin
        if (Rec.Name<>'.')and(Rec.Name<>'..') then
         if (Rec.Attr and faDirectory) <> 0 then begin
         TMP:=GetFiles(Path+Rec.Name,True);
         Result.AddStrings(TMP);
         TMP.Free;
         end else Result.Add(Path+Rec.Name);
       end;
    end;

if not Full then
  for i:=0 to Result.Count-1 do
   begin
     ls := Result[i];
     Delete(ls,1,Length(Path));
     Result[i] := ls;
   end;
  FindClose(Rec);
end;




procedure TForm1.Button1Click(Sender: TObject);
begin
ListBox1.Items.Assign(GetFiles('C:\Windows\System32'));
end;

end.

Взял от сюда
Там куча примеров по этой теме!!!
Разберётесь!!!
С уважением,
Volkogriz!

[mihali4]

Плюс если не полениться воспользоваться поиском по форуму или хотя бы посмотреть в самый низ этой страницы... Ответы даны.

[Demien]

Вот так совпадение...
Как раз пишу прогу где затрагивается сканирование папки\папок!

Нашел в DelphiWorld следующее:
Кинул на форму кнопку, едит и ListBox.
реакция на OnClick по кнопке:

procedure TForm1.Button1Click(Sender: TObject);
var
  SR: TSearchRec;
  FindRes: Integer; 
  Poisk:String;
begin
  Poisk:= Edit1.Text; // Присваиваем путь к апке/каталогу    
                            // где следуеп провести поиск
  ListBox1.Clear;      // Очистка ЛистБокса (При повторном сканировании
                            // или после смены места поиска)            

  FindRes := FindFirst(Poisk+'*.*', faAnyFile, SR);  // Поиск всех видов 
                                                                    //файлов
  while FindRes = 0 do
  begin
    // если найденный элемент каталог и
    if ((SR.Attr and faDirectory) = faDirectory) and
      // он имеет название "." или "..", тогда:
    ((SR.Name = '.') or (SR.Name = '..')) then
    begin
      FindRes := FindNext(SR); // продолжить поиск
      Continue; // продолжить цикл
    end;
    ListBox1.Items.Add(SR.Name);
    FindRes := FindNext(SR);
  end;
  FindClose(SR);
end;

У меня работает без проблемм!

[mihali4]

Нашел в DelphiWorld

Там все почему-то ищут. А у нас на форуме что - такая сложная система поиска? Или "в чужих руках всегда толще кажется"?

[D!zel]

Volkogriz, спасибо большое! эта функция мне больше понравилась...
______________
Demien, не знаю как она работает, потому что лично у меня она показывает папку которая была открыта, например если я укажу C:\WINDOWS, то она мне выдаст одну строку с названием WINDOWS, но не сканирует ее

[Altera]

mihali4, чужое милее! .
Сорри за флуд.

[Ferz-2009]

public
    { Public declarations }

       procedure FindFiles(Dir: string);

___________________________________ _______

procedure TForm1.FindFiles(Dir: string);
const
  EXT = '.mp3';
var
  SearchRec: TSearchRec;
begin
  Dir := IncludeTrailingBackslash(Dir);
  if FindFirst(Dir + '*.*', faAnyFile, SearchRec) = 0 then
    repeat
      if (SearchRec.Name = '.') or (SearchRec.Name = '..') then
        Continue;
      if (SearchRec.Attr and faDirectory) <> 0 then
        FindFiles(Dir + SearchRec.Name)
      else
    if ExtractFileExt(Dir + SearchRec.Name) = EXT then
          mainlist.Items.Add(Dir + SearchRec.Name);
    until
      FindNext(SearchRec) <> 0;
  FindClose(SearchRec);
end;

___________________________________ ___________

procedure TForm1.Button1Click(Sender: TObject);
var path:string;
begin
path:='C:\' ;
FindFiles(PATH);

У нас принято оформлять код специальным тэгом - кнопочка "#".
Модератор