Поиск на винте

[SeRhy]

Подскажите пожалуйста как осуществить поиск файлов заданой маски (*.mp3 например) на винчестере.
Я искал ето на сайте, но то что мне нужно не нащол.
Заранее благодарен.

[NikLik]

Пуск=>поиск=>файлы и папки=>Часть имени файла или имя файла целиком- тут пишем *.mp3.
Жмём "Найти".
Всё.

[mihali4]

Например:

var sr: TSearchRec;
    ok: integer;
begin
ok:=FindFirst('C:\*.mp3',faAnyFile,sr);
... //к примеру, Label1.Caption:=sr.Name;
while ok=0 do
begin
ok:=FindNext(sr);
... //к примеру, Label1.Caption:=sr.Name;
end;
end;

[puporev]

Пуск=>поиск=>файлы и папки=>Часть имени файла или имя файла целиком- тут пишем *.mp3.

Если нужно ВСЕ файлы c данным расширением, то перед *.mp3 ничего писать не надо.

[N-DOGG]

У меня такая процедура работает с TShellTreeView, но ищет только по корневым катологам (только на диске C:\ или других). Не могу заставить работать поиск файлов по подпапкам. Код примерно такой же

[Stilet]

Тема много раз обсуждалась.
Рулите господа поиском.

Закрыто.