VPF::Поиск по расширению - Форум программистов

Гость_Lamer

Дата 16.9.2004, 10:44 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Как перебрать все файлы на диске предельно ясно Прочитал Арсенал
Подскажите как найти нужные по расширению например *.txt

Dynamic

Дата 16.9.2004, 10:48 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 372
Регистрация: 5.7.2004
Где: Салехард

Репутация: 12
Всего: 15

В функции FindFirst вместо *.* пишешь *.txt

--------------------

Было бы о чем молчать, а уж что сказать – всегда найдется...

Rennigth

Дата 16.9.2004, 13:39 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1708
Регистрация: 21.6.2004
Где: Moscow

Репутация: 49
Всего: 76

Код


Procedure ScanDir(Dir:string);
var
  SearchRec:TSearchRec;
  fname:string;
begin
  if FindFirst(Dir+'*.*', faAnyFile, SearchRec)=0 then
    repeat
      if (SearchRec.name='.') or (SearchRec.name='..') then
        continue;
      if (SearchRec.Attr and faDirectory)<>0 then
        ScanDir(Dir+SearchRec.name+'\')
                                             else begin
        fname:=Dir+SearchRec.name;
        if AnsiLowerCase(copy(fname,length(fname)-2,3))='txt' then begin

        // <- тут fname куда - нить сохраняй (будут без расщирения);

      end;
    until FindNext(SearchRec)<>0;
  FindClose(SearchRec);
end;

--------------------

(* Honesta mors turpi vita potior *)

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »