VPF::Как перебрать все файлы по маске в директории?

Canada

Дата 3.5.2009, 17:48 (ссылка)

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

Загрузка ...

Бывалый

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

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

В ЭТОМтопике ниже моя проблема. Как видите, решить ее никкак нельзя иначе. Т.е. подскажите пожалуйста (желательно примерами или прямым кодом smile

) как мне перебрать все файлы с расширением *.docx в указанной папке. И вообще, как эту папку "визуально указать". Т.е. чтобы не текст в строку вбивать руками с адресом папки а типа через какой нибудь диалог.
И самое главное чтобы, можно было перебрать все файлы с нужным расширением. Т.е. взял 1 файл - сделал с ним что надо, взял другой..И так пока есть нужные файлы.
Заранее благодарен.

Данкинг

Дата 3.5.2009, 18:10 (ссылка)

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

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130

Цитата(Canada @ 3.5.2009, 18:48

)

как мне перебрать все файлы с расширением *.docx в указанной папке.

А в FileListBox их почему нельзя вывести?

Цитата(Canada @ 3.5.2009, 18:48

)

И вообще, как эту папку "визуально указать".

TDirectoryListBox ?

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

There's nothing left but silent epitaphs.

Keeper89

Дата 3.5.2009, 18:11 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 9
Всего: 58

Вот возможный пример.

Присоединённый файл ( Кол-во скачиваний: 22 )

Project1.rar 198,82 Kb

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

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

dizJis

Дата 18.5.2009, 12:09 (ссылка)

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

Загрузка ...

Новичок

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

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

Код

function FileInDirectory(Path: WideString; out List: TStrings): boolean;
var
  SR: TSearchRec;
begin
  result := false;
  if FindFirst(Path + '*.dll', faAnyFile, SR) = 0 then
  begin
    List.Clear;
    repeat
      if (SR.Attr <> faDirectory) then
        List.Add(Path+SR.Name);
    until FindNext(SR) <> 0;
    SysUtils.FindClose(SR);
    result := true;
  end;
end;

Указанная функция ищет файлы с маской '*.dll' в директории Path и выводит список найденныз в List. Чтобы вызвать диалог выбора папки подключи в uses модуль Filectrl и заюзай функцию SelectDirectory, например, так:

Код

if SelectDirectory('Выберите папку, '', SelectDir, [sdShowShares, {sdNewUI,} sdValidateDir], fOptions) then
    edPath.Text := SelectDir+'\';

Это сообщение отредактировал(а) dizJis - 18.5.2009, 12:10

Данкинг

Дата 18.5.2009, 14:03 (ссылка)

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

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130

dizJis, угу, ДРКБ рулит. smile

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

There's nothing left but silent epitaphs.

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